Надеюсь, что задача та.
program _1;
var a:integer;
begin
writeln ('Введите номер месяца');
readln (a);
case a of
1: writeln ('Январь. Зима');
2: writeln ('Февраль. Зима');
3: writeln ('Март. Весна');
4: writeln ('Апрель. Весна');
5: writeln ('Май. Весна');
6: writeln ('Июнь. Лето');
7: writeln ('Июль. Лето');
8: writeln ('Август. Лето');
9: writeln ('Сентябрь. Осень');
10 :writeln ('Октябрь. Осень');
11: writeln ('Ноябрь. Осень');
12: writeln ('Декабрь. Зима');
else writeln ('Месяца с номером ',a,' не существует'):
end;
end.