Написать программу на языке Pascal

var kolp, kolo, x: integer;

begin

 repeat

   Write('Введите число: ');

   ReadLn(x);

   if x > 0 then inc(kolp) else if x < 0 then inc(kolo);

 until x = 0;

 WriteLn('Кол-во положительных чисел: ', kolp);

 WriteLn('Кол-во отрицательных чисел: ', kolo);

end.

Объяснение: