(*$B- Taschenrechner *)
PROGRAM taschenrechner;
VAR op :char; res,zahl : real;
BEGIN
  writeln('Rechnung eingeben:');
  writeln('Zahlen und Operatoren mit Leerschlag trennen');
  res := 0; op :='+';
  REPEAT
     read(zahl);
     CASE op OF
        '+': res := res + zahl;
        '-': res := res - zahl;
        '*': res := res * zahl;
        ':','/': res := res/zahl
     END;
     REPEAT  read(op) UNTIL op <>' '
  UNTIL op = '=';
  writeln(res)
END.