program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then
write ('весна');
if (x>=6) and (x<8) then
write ('лето');
if (x>=9) and (x<=11) then
write ('осень');
if (x=12) or (x<=2) then
write ('зима');
end.
var
a : integer;
readln(a);
if a in [1,2,12] then
writeln('winter')
else if a in [3,4,5] then
writeln('spring')
else if a in [6,7,8] then
writeln('summer')
else if a in [9,10,11] then
writeln('autumn')
else if (a > 12) or (a < 1) then
writeln('incorrect input');
program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then
write ('весна');
if (x>=6) and (x<8) then
write ('лето');
if (x>=9) and (x<=11) then
write ('осень');
if (x=12) or (x<=2) then
write ('зима');
end.
var
a : integer;
begin
readln(a);
if a in [1,2,12] then
writeln('winter')
else if a in [3,4,5] then
writeln('spring')
else if a in [6,7,8] then
writeln('summer')
else if a in [9,10,11] then
writeln('autumn')
else if (a > 12) or (a < 1) then
writeln('incorrect input');
end.