PROGRAM EX7(INPUT,OUTPUT);
VAR OPERATOR:CHAR;
    ANS,NEWNO:REAL;
PROCEDURE SKIPBLANKS(VAR F:TEXT);
BEGIN
WHILE (F^ =' ') AND NOT EOF(F) DO GET(F)
END;
BEGIN
ANS:=0;
OPERATOR:='+';
REPEAT
READ(NEWNO);
SKIPBLANKS(INPUT);
WRITELN('NEWNO IS ',NEWNO);
WRITELN('BUFFER IS ',ORD(INPUT^));
CASE OPERATOR OF
'+':ANS:=ANS+NEWNO;
'-':ANS:=ANS-NEWNO
END (*OF CASE*);
READ(OPERATOR);
SKIPBLANKS(INPUT);
WRITELN('OPERATOR IS ',OPERATOR);
WRITELN('BUFER IS ',ORD(INPUT^));
UNTIL OPERATOR ='=';
WRITELN('ANSWER IS ',ANS)
END.