Складіть програму, яка буде рахувати кількість введених з клавіатури речень​

Объяснение:

var i,n,kp,km:integer; a:char;

begin

kp:=0; km:=0;

readln(n);

for i:=1 to n do

begin

  readln(a);

  if a='+' then:=kp+1;

  if a='-' then km:=km+1;

end;

writeln(kp,' ',km);

end.