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.
дальше доделай сам