Написать программу,которая печатает "Доброе утро","Добрый день","Добрый вечер","Спокойной ночи",в зависимости от времени,которое вводится с клавиатуры на запрос программы.

Program esep;var  hour : byte;beginRepeatWrite('Часы: ');Readln(hour);until hour in [1..24];case hour of 8..11 : Writeln('Доброе утро!');12..16 : Writeln('Добрый день');17..23 : Writeln('Добрый вечер'); else Writeln('Доброй ночи!');end;Readln;end.