Повторить работу программы при нажатии клавиши "y" - Turbo Pascal

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

Алгоритм типа: Продолжить y/n? Чтобы после всех операций в конце программы появлялась надпись "Продолжить y/n?" и при выборе y, вся программа начиналась с начала, если же n, то программа заканчивалась. Заранее спасибо.

Решение задачи: «Повторить работу программы при нажатии клавиши "y"»

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

program p2;
var
        ch:string;
begin
repeat
      write('ГЏГ°Г®Г¤Г®Г«Г¦ГЁГІГј y/n');
      read(ch);
until ch='n';
end.

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

В данном коде на языке Turbo Pascal реализована программа, которая повторяет свою работу при нажатии клавиши y. В начале кода объявлены переменные:

ch:string; Далее идет цикл repeat, внутри которого происходит следующее:
выводится строка ГЏГ°Г®Г¤Г®Г«Г¦ГЁГІГј y/n;
с помощью функции read(ch) считывается ввод пользователя;
до тех пор, пока введенная пользователем строка не будет равна n, цикл повторяется. Таким образом, при нажатии клавиши y программа будет повторять свою работу.