program Calculator;
uses CRT;
var a, b, r: real;
c: char;
ok: boolean;
begin
clrscr;
repeat
ok:=true;
writeln('Перше число.');
readln(a);
writeln('Друге число.');
readln(b);
writeln('Обери дію: "+" - додавання, "-" - віднімання, "*" - множення, "/" - ділення.');
c:=readkey;
case c of
'+': r:=a+b;
'-': r:=a-b;
'*': r:=a*b;
'/': r:=a/b;
else ok:=false;
end;
if ok then writeln(r:0:5);
writeln('"Q" - завершуй, будь яка інша кнопка - повернутись докалькулятора.');
c:=readkey;
until (c='q') or (c='Q');
end.