Составьте программу, которая считает в формуле, заданной с клавиатуры, количество плюсов и минусов. на паскале.

P.S формулы в программе быть не должно

 

var a:string;i:integer;c:boolean;beginreadln(a);repeatif pos('+',a)<>0 then begin inc(i); delete(a,pos('+',a),1); end;if pos('-',a)<>0 then begin inc(i); delete(a,pos('-',a),1); end;if (pos('+',a)=0) and (pos('-',a)=0) then c:=true;until c;writeln(i);end.