вот так вот , сорь что первые разы не правильно скинул
program nomermesaca;
var a:integer;
begin
writeln('введите номер месяца'); readln(a);
Case a of
1,2,12:writeln ('зима');
3,4,5:writeln ('весна');
6,7,8:writeln ('лето');
9,10,11:writeln ('осень')
else
writeln ('ошибка');
end;
readln;
end.