Question

Здравствуйте! Помогите пожалуйста решить задачу
 Задать с помощью генератора случайных чисел час суток целое число от 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. 

Answer 2

var a:integer;
begin
a:=random (24);
writeln ('время: ',a);
case a of
5..10: writeln ('доброе утро');
11..16: writeln ('добрый день');
17..23:writeln ('добрый вечер);
0,1..4: writeln ('доброй ночи');
end;
end.