Var m:real;
begin
write('введите месяц : ');
readln(m);
if ((m/3 <1) or (m=12)) then write('зима'); 
if ((m/3 =1)) then write('весна');
if ((m/3 =2)) then write('лето');
if ((m/3 =3)) then write('осень');
end.

Наверное так

var
    m: integer;

begin
    write('Введите номер месяца -> ');
    readln(m);
    case m of
        12, 1, 2: write('Это зима');
        3, 4, 5: write('Это весна');
        6, 7, 8: write('Это лето');
        9, 10, 11: write('Это осень');
    else write('Месяца с таким номером не существует');
    end;
end.