Расчет формулы по циклу, выход по нажатии клавиши - Turbo Pascal

Формулировка задачи:

есть формула (прмиер)

                    Листинг программы
                
writeln('введите а');
readln(a);
writeln('введите b');
readln(b);
writeln(a+b);
readln;

Использовать цикл, чтобы после каждого расчета, очищается экран, и начинается заного расчет При нажатии ESC или другой клавиши просиходит выход из программы

Решение задачи: «Расчет формулы по циклу, выход по нажатии клавиши»

Листинг программы

program cycle;
uses
  crt;
var
  a,b:integer;
  ch:char;
begin
  repeat
    clrscr;
    write('Enter а: ');
    readln(a);
    write('Enter b: ');
    readln(b);
    writeln(a+b);
    writeln('Press any key to continue or ESC to quit.');
    ch:=readkey;
  until ch=#27;
end.

Объяснение кода листинга программы

Программа называется cycle.
Используется библиотека crt.
Объявляются переменные a, b и ch типа integer и char соответственно.
В цикле repeat выполняется следующий код:
- Вызывается функция clrscr, которая очищает экран.
- Выводится сообщение Enter а: и считывается значение переменной a с помощью функции readln.
- Выводится сообщение Enter b: и считывается значение переменной b с помощью функции readln.
- Вычисляется сумма переменных a и b с помощью оператора +.
- Выводится результат суммы.
- Выводится сообщение Press any key to continue or ESC to quit..
- Считывается символ с клавиатуры с помощью функции readkey.
Цикл repeat продолжается до тех пор, пока символ, введенный пользователем, не равен символу #27, который представляет собой символ ESC.
После выхода из цикла repeat программа завершается.