Помогите написать программу на паскале "Ввести число от 0 до 24 и вывести фразу "Доброе утро", "Добрый день", "Добрый вечер", "Спокойной ночи" в зависимости от времени суток. Пример: Введите число от 0 до 24: 12 Добрый день!"

uses crt;

var day:integer;

begin

writeln (day) ;

if (day > 0) and (day < 25) then

case day of

0:writeln ('Good night!') ;;

1:writeln ('Good night!') ;;

2:writeln ('Good night!') ;;

3:writeln ('Good night!') ;;

4:writeln ('Good morning!') ;;

24:writeln ('Good night!') ;

end.

дальше доделай сам