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

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