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

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.