Склавиатуры вводятся положительные и отрицательные целые числа. посчитать количество положительных и отрицательных чисел. концом ввода служит число 1000.​

var

 ch: array [1..100] of real;

 min, plus, i, i1: integer;

begin

 inc(i);

 repeat

   readln(ch[i]);

   if ch[i] < 0

     then inc(min)

   else inc(plus);

 until ch[i] = 1000;

 writeln('Положительных чисел: ', plus);

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

 readln;

end.