Юл
Юлия
program mounth;
var a : integer;
begin
writeln('Введите номер месяца');
readln (a);
case a of
1, 2, 12:begin
writeln('Зима');
end;
3, 4, 5:begin
writeln('Весна');
end;
6, 7, 8:begin
writeln('Лето');
end;
9, 10, 11:begin
writeln('Осень');
end;
else writeln('Введено неверное число);
end;
end.