1)Вводится n чисел. Отыскать наибольшее число кратное 3м.2)Вводится n чисел. Найти

//PascalABC.Net 3.2
begin
var a:=readArrInteger ('Вводите: ', readinteger('n ='));
var max:=a[0]; var count:=0;
for var i:=0 to length(a)-1 do
begin
if a[i]gt;max then max:=a[i];
if a[i] mod 3lt;gt;0 then inc(count);
end;

writeln ('1: ', max);
write ('2: ', count)
end.