Написать программу, которая печатает «Доброе утро» ,"Добрый день» ,"Добрый вечер»…

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.