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

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.