Задачка 1. Дана последовательность целых чисел. Напишите программу, подсчитывающую, сколько в

1                                        

program raf105;

var a,otr: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if alt;0

   then otr+= 1;

until a = 0;

writeln('Отрицательных чисел: ',otr);

end.

2                                        

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтоб окончить введите 0');

repeat

 readln(a);

 if agt;0

   then sum+= a;

until a = 0;

writeln('Сумма положительных чисел: ',sum);

end.

PascalABC 3.4.2