Написать программу которая вводит номер месяца и определяет по этому номеру время года, и название выводит на экран и если число больше 12, то такого номера месяца не существует, язык паскаль
program Seasons; var monthNumber: integer; begin writeln('Enter the number of the month: '); readln(monthNumber); case monthNumber of 1, 2, 12: writeln('Winter'); 3, 4, 5: writeln('Spring'); 6, 7, 8: writeln('Summer'); 9, 10, 11: writeln('Autumn'); else writeln('There is no such month number'); end; end.
var
monthNumber: integer;
begin
writeln('Enter the number of the month: ');
readln(monthNumber);
case monthNumber of
1, 2, 12: writeln('Winter');
3, 4, 5: writeln('Spring');
6, 7, 8: writeln('Summer');
9, 10, 11: writeln('Autumn');
else
writeln('There is no such month number');
end;
end.