Введите только время ( только часы) и напечатайте соотвествующие этому времени...

Question

Введите только время ( только часы) и напечатайте соотвествующие этому времени сообщение:"доброе утро", добрый вечер, доброй ночи

Answer 1

Var h:integer;
begin;
readln(h);
case h of
7..15:writeln('Доброе утро');
16..23:writeln('Добрый вечер');
0..6:writeln('Доброй ночи');
else writeln('Не часы');
end;
end.