Как сделать так чтобы можно было вернуться в начало программы? - Pascal

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

Как сделать так чтобы при выполнении всех операций я мог вернутся в начало программы, а не только выйти из неё, нажав enter?

Решение задачи: «Как сделать так чтобы можно было вернуться в начало программы?»

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

begin
repeat
// операторы вашей программы
write('Выйти? (y/n) '); readln(c);
until c='y';
end.

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

В данном коде представлен простой цикл repeat-until, который продолжается до тех пор, пока значение переменной c не станет равным y. Внутри цикла выполняются следующие действия:

Выводится запрос на ввод символа Выйти? (y/n).
Считывается введенное значение и сохраняется в переменной c.
Выводится сообщение с полученным значением c. Таким образом, если пользователь введет y, то цикл прервется и программа завершится. Если же пользователь введет любое другое значение, то цикл продолжится и будет повторяться до следующего ввода y.