Program Stats;var a,k,d,c:integer;begind:=0;k:=0;c:=0;repeatreadln(a);d:=d+1;if a>= 0thenbegink:=k+1;end;if a<0thenbeginc:=c+1;end;until d = 14;writeln('+ ',k);writeln('- ',c);readlnend.
Program Stats;
var a,k,d,c:integer;
begin
d:=0;
k:=0;
c:=0;
repeat
readln(a);
d:=d+1;
if a>= 0
then
begin
k:=k+1;
end;
if a<0
then
begin
c:=c+1;
end;
until d = 14;
writeln('+ ',k);
writeln('- ',c);
readln
end.