Составить формулу, которая бы выдавала на вводимое время следующим образом: от 0 до 7 часов - "доброй ночи" от 7 до 11- доброе утро от 12 до 18 - добрый день от 19 до 24 - добрый вечер !

Var
  h:byte;
begin
  Write('Введите количество часов в 24-х часовом формате: '); Read(h);
  case h of
  0..6:Writeln('Доброй ночи!');
  7..11:Writeln('Доброе утро!');
  12..18:Writeln('Добрый день!');
  19..24:Writeln('Добрый вечер!');
  else Writeln('*** ОШИБКА ***');
  end
end.

Милости просим, было не очень сложно