На языке программирования Паскаль напишите программу, которая: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.