Вывести на экран название дня недели, соответствующее заданному числу - Pascal ABC

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

17. Вывести на экран название дня недели, соответствующее заданному числу, при условии что в месяце 31 день и первое число понедельник.

Решение задачи: «Вывести на экран название дня недели, соответствующее заданному числу»

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

const DayOfWeekName  : array[0..6] of string = ('voskpecenbe','ponedelnik','vtornik','cpeda',
'4etverg','pyatnica','cybbota');
 
var day : integer;
begin
  repeat
    Write('Vvedite daty: '); ReadLn(day);
    if not ((day>=1) and (day<=31)) then
       WriteLn(' oshibochnay data! Doljno byt` ot 1 do 31!');
  until (day>=1) and (day<=31);
 
  WriteLn(DayOfWeekName[day mod 7])
end.

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

В данном коде объявлен массив DayOfWeekName, который содержит названия дней недели на языке Pascal ABC. Переменная day типа integer используется для считывания числа от пользователя. Цикл repeat выполняется до тех пор, пока введенное число находится в диапазоне от 1 до 31. Если введенное число выходит за этот диапазон, выводится сообщение об ошибке. В конце программы выводится на экран название дня недели, соответствующее введенному числу, с помощью индексации массива DayOfWeekName и операции модуля 7.