Составить на языке Паскаль программку, которая запрашивает с клавиатуры N целых

var

  number, N, npol, notr, n0, i: integer;  npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

    writeln('Введите целое число');

    readln(number);

    if number lt; 0 then notr:= notr + 1;

    if number gt; 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, верно ли нашлось количество.

const N = 4;
var
a: array[1..4] of integer;
i, c, c2, c3: integer;
begin
for i := 1 to n do begin
readln(a[i]);
if(a[i] = 0) then inc(c)
else if(a[i] lt; 0) then inc(c2)
else inc(c3);
end;
writeln('Нулевых эл.: ', c);
writeln('Отрицательных эл.: ', c2);
writeln('Положительных эл.: ', c3);
end.