Напишите программу на паскале, которая будет определять время суток по введенным часам

Var a: integer;beginwriteln ('введите время');readln(a);case a of 0..4: writeln('ночь');5..10: writeln('утро');11..15: writeln('день');16..23: writeln('вечер');else writeln('такого времени нет');end;end.