Как повторить ввод числа? - PascalABC.NET

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

После того как было введено число и программа вывела результат в файл,требуется вывести сообщения: "повторить ввод числа",если ответ "да",то повторяем ввод числа,если "нет" то уходим на выход.

Решение задачи: «Как повторить ввод числа?»

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

procedure ОсновнаяРаботаПрограммы;
begin
  WriteLn('Ну мы тут чё-то там посчитали...');
end;
 
begin
  var Ответ : String;
  repeat
    ОсновнаяРаботаПрограммы;
    
    Ответ := ReadLnString('Повторить? (Да/Нет | Yes/No) :');
  until Not( UpperCase(Ответ) in ['ДА', 'YES'] );
  WriteLn('Программа завершает свою работу.');
end.

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

Заголовок ОсновнаяРаботаПрограммы относится к процедуре, которая будет выполняться при каждом повторении цикла.
При запуске программы выводится сообщение Ну мы тут чё-то там посчитали....
Переменная Ответ используется для хранения ответа пользователя на вопрос о повторении ввода числа.
Цикл repeat выполняется до тех пор, пока ответ пользователя не будет Нет или NO.
Внутри цикла вызывается процедура ОсновнаяРаботаПрограммы, которая, вероятно, выполняет какую-то работу с числами.
После каждого повторения цикла пользователю предлагается ввести ответ на вопрос о повторении ввода числа.
Ответ пользователя считывается функцией ReadLnString, которая возвращает строку, введенную пользователем.
Функция UpperCase применяется к ответу пользователя, чтобы преобразовать его в верхний регистр.
С помощью оператора in проверяется, содержит ли верхний регистр ответа ДА или YES.
Если ответ ДА или YES, цикл повторяется.
Если ответ Нет или NO, цикл завершается.
После завершения цикла выводится сообщение Программа завершает свою работу..