Программа, вычисляющая арифметические выражения аналогично калькулятору

 

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.