Question

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

Помогите срочнооо!!! Пожалуйста

Answer 1

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.