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. {Конец программы}