Program Calc; {Название программы}
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. {Конец программы}

                        
program Calc;

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.