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

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