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

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.