На языке программирования Паскаль напишите программу, которая:

1) В последовательности чисел находит количество чисел, кратных 3.

2) В последовательности чисел находит максимальное четное число, оканчивающееся на 4.

1)

program kr3sum;

var i, s. h:integer;

begin

read (k) / / кол чисел

for i:=1 to k do begin

read (h) / / число для действий

if h mod 3 = 0 then begin s:=s+1;

end;

writeln (s) ;

end.

2)

program jeje;

var k, i, m, s, h:integer;

begin m:=0;

read (k) ; / / кол-во чисел

for i:=1 to k do begin

readln (h) ;

if h mod 10 = 4 then begin s:=h;

if s > m then m:=s

end;

end;

write (m) ;

end.