С клавиатуры вводятся K чисел. Подсчитать количество отрицательных чисел и произведение нечетных. Используемый цикл While.

Program n1;

var a, k, i, ko, p: integer;

begin

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

readln (k) ;

i:=1;

ko:=0;

p:=1;

while k>i-1 do begin

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

readln (a) ;

if a<0 then ko:=ko+a;

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

i:=i+1;

end;

writeln ('кол-во отриц: ', ko) ;

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

end.