Программа, вычисляющая арифметические выражения аналогично калькулятору
var s:string[3];
a,b:real;
c:char;
BEGIN
readln;
repeat
readln(a);
readln(c);
readln(b);
case c of
'+':writeln(a+b:0:3);
'-':writeln(a-b:0:3);
'*':writeln(a*b:0:3);
'/':writeln(a/b:0:3);
end;
writeln('on/off');
readln(s);
until s='off';
readln;
END.