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

спасибо

)/

vara,s,s2:real;k,n,i:integer;beginreadln(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.