Объяснение:
var i,n,kp,km:integer; a:char;
begin
kp:=0; km:=0;
readln(n);
for i:=1 to n do
readln(a);
if a='+' then:=kp+1;
if a='-' then km:=km+1;
end;
writeln(kp,' ',km);
end.
