Question

Хэлп, кто паскаль шарит

Answer 1

Задание А)

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.