С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры — Pascal(Паскаль)

var a:real;
n,pos,neg,nul,i:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
begin
 write('a[',i,']=');
 readln(a);
 if(a>0)then inc(pos);
 if(a=0)then inc(nul);
 if(a<0)then inc(neg);
end;
writeln('pos=',pos,',nul=',nul,',neg=',neg);
readln;
end.