PascalABS составить программу которая определяет 1) является ли число положительным или отрицательным. 2) считает числа отрицательные и положительные. 3) считает сумму отрицательных и положительных

Var a, i, k1, k2, s1, s2:integer;

begin

for i:=1 to 3 do begin

readln (a);

if a>0 then begin

writeln ('Число ', a,' положительное');

k1:=k1+1; s1:=s1+a;

end else if a<0 then begin

writeln ('Число ', a,' отрицательное');

k2:=k2+1; s2:=s2+a;

end;

end;

writeln ('Количество положительных = ', k1,', их сумма = ', s1);

writeln ('Количество отрицательных = ', k2,', их сумма = ', s2);

end.

Пример:

15

Число 15 положительное

-74

Число - 74 отрицательное

28

Число 28 положительное

Количество положительных = 2, их сумма = 43

Количество отрицательных = 1, их сумма = - 74