Дана числовая последовательность. Отыскать сумму положительных элементов,количество нулей и

язык какой?

паскаль

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 agt;0 then
                   s:=s+a;
               if alt;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 lt;0 = ',s2);
end.