Необходимо составить программу, которая вводит с клавиатуры n целых чисел

programm 1; uses crt var a,n,i,c1,c2,c3:integer; begin c1:=0; c2:=0; c3:=0; writeln("введите количество"); readln(n); for i:=1 to n do begin writeln ("Введите число"); readln(a); if a>0 then c1:=c1+1; if a<0 then c2:=c2+1; if a=0 then c3:=c3+1; end; writeln ("Положительных: "+c1+" Отрицательных: "+c2+"Нулевых: "+с3); end.