Напишите программу в Паскаль: Для n произвольно введенных чисел с клавиатуры вычислить сумму и количество кратных 3 и не кратных 6 и произведение нечетных (на простом уровне)

Program n1;

var i, a, sum, k, p, n: integer;

begin

write ('введите кол-во чисел: ') ;

readln (n) ;

sum:=0;

k:=0;

p:=1;

for i:=1 to n do

begin

write ('введите ', i,' число: ') ;

readln (a) ;

if (a mod 3=0) and (a mod 60)

then

begin

sum:=sum+a;

k:=k+1;

end;

if a mod 20 then p:=p*a;

end;

writeln ('сумма: ', sum) ;

writeln ('количество: ', k) ;

writeln ('произведение: ', p) ;

end.