Составить формулу, которая бы выдавала приветсивия на вводимое время следующим образом:
От 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('*** ОШИБКА ***');  endend.