напишите программу, которая выводит на экран количество неположительнвх чисел из десяти, вводимых пользователем. Пожалуйста очень срочно!

 const N =10;   var a, k, i:integer;   begin   k:=0;   for i:=1 to n do begin   readln(a);  if a<0 then  k:=k+1;  end;   writeln(k);  end.