Ввести время в часах и определить время суток (ночь, утро, день, вечер) - Pascal ABC

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

2) Ввести время в часах. Определить время суток (ночь, утро, день, вечер) .

Решение задачи: «Ввести время в часах и определить время суток (ночь, утро, день, вечер)»

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

var
  x: integer;
 
begin
  repeat
    Write('Введите время в часах (0 - 23): ');
    ReadLn(x);
  until x in [0..23];
  case x of
    4..9: WriteLn('Утро');
    10..17: WriteLn('День');
    18..22: WriteLn('Вечер');
  else
    WriteLn( 'Ночь');
  end
end.

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

Переменная x типа integer используется для считывания времени в часах.
Цикл repeat-until используется для повторного запроса времени, пока введенное значение не будет находиться в диапазоне от 0 до 23.
Вложенный оператор case используется для определения времени суток на основе введенного времени.
Если введенное время находится в диапазоне от 4 до 9 часов, выводится сообщение Утро.
Если введенное время находится в диапазоне от 10 до 17 часов, выводится сообщение День.
Если введенное время находится в диапазоне от 18 до 22 часов, выводится сообщение Вечер.
Если введенное время находится вне указанных диапазонов, выводится сообщение Ночь.