begin Write('Введите номер месяца (от 1 до 12): '); ReadLn(m); if (m=12) or (m=1) or (m=2) then begin WriteLn('Зима'); end else if (m=3) or (m=4) or (m=5) then begin WriteLn('Весна'); end else if (m=6) or (m=7) or (m=8) then begin WriteLn('Лето'); end else if (m=9) or (m=10) or (m=11) then begin WriteLn('Осень'); end; end.
Answers & Comments
program date;
var m: Integer;
begin
Write('Введите номер месяца (от 1 до 12): ');
ReadLn(m);
if (m=12) or (m=1) or (m=2)
then begin
WriteLn('Зима');
end else if (m=3) or (m=4) or (m=5)
then begin
WriteLn('Весна');
end else if (m=6) or (m=7) or (m=8)
then begin
WriteLn('Лето');
end else if (m=9) or (m=10) or (m=11)
then begin
WriteLn('Осень');
end;
end.