program suma;
var s1, s2, s3, a, b:real;
begin
s1:=0; s2:=0; s3:=0;
begin
read a;
if a>0 s1:=s1+1;
if a<0 s2:=s2+a;
if a=0 s3:=s3+1;
end;
write ('suma pozitivnih:',s1);
writeln('suma negativnih:',s2);
writeln ('jednakih nuli ih ima:',s3);
end.