Дана числовая последовательность. Найти сумму положительных элементов, количество нулей и сумму отрицательных элементов. Вывести найденные количества и суммы (если они не были сформированы вывести соответсвующее сообщение).

Var

a, s, s2:real;

k, n, i:integer;

begin

readln (n) ;

for i:=1 to n do

begin

readln (a) ;

if a=0 then

k:=k+1;

if a>0 then

s:=s+a;

if a<0 then

s2:=s2+a;

end;

if k=0 then

writeln ('Нет 0')

else

writeln ('k = ', k) ;

if s=0 then

writeln ('Нет полож')

else

writeln ('S = ', s) ;

if s2=0 then

writeln ('Нет отриц')

else

writeln ('S <0 = ', s2) ;

end.