С клавиатуры вводится l целых чисел. Подсчитать кол-во нечетных чисел и произведение положительных

Program n1;

var i, a, kn, pp, n: integer;

begin

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

readln (n);

pp:=1;

kn:=0;

for i:=1 to n do

begin

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

readln (a);

if a mod 20 then kn:=kn+1;

if a>0 then pp:=pp*a;

end;

writeln ('кол-во неч. чисел: ', kn);

writeln ('произв. пол чисел: ', pp);

end.