Question

Здравствуйте! Помогите пожалуйста решить задачу Задать с помощью генератора случайных чисел час суток целое число от 0 до 23. НЗдравствуйте! Помогите пожалуйста решить задачу
Задать с помощью генератора случайных чисел час суток целое число от 0 до 23. Напечатайте соответствующее этому времени сообщение: "Доброе утро", "Добрый день",
"Добрый вечер", "Доброй ночи".

Answer 1

Var day:byte;

begin 
  randomize;
   day:=random(24);
   case day of
   5..11:writeln('Доброго утра');
   12..17:writeln('Доброго Дня');
   18..22:writeln('Доброго Вечера');
   23, 1..4:writeln('Доброй ночи');
   end;
  writeln(day);
   end.