uses crt;var day:integer;beginwriteln(day);if (day > 0) and (day < 25) thencase 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.
дальше доделай сам
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.
дальше доделай сам