var t:integer;

begin

writeln('Введите время в часах:');

read(t);

case t of

0..5: writeln('Ночь');

6..11: writeln('Утро');

12..17: writeln('День');

18..24: writeln('Ночь');

else

writeln('Ошибка при вводе времени');

end;

end.