program StringTest;


const   Month       :   array[1..12] of string      =   ('март' , 'апрель', 'май'  , 'июнь', 'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь', 'январь', 'февраль');
    Toy     :   array[1..12] of string      =   ('весна', 'весна' , 'весна', 'лето', 'лето', 'лето'  , 'осень'   , 'осень'  , 'осень' , 'зима'   , 'зима'  , 'зима'   );


var i       :   integer;
    s       :   string;


begin
WriteLn('Введите НЕзаглавными буквами месяц: ');  ReadLn(s);
for i := 1 to 12 do begin
    if (s = Month[i]) then begin
        WriteLn(Toy[i]);
        break;
    end else begin
        if (i = 12) then begin
            WriteLn('Такого месяца не существует или вы неправильно выполнили инструкции в программе.');
        end;
    end;
end;
end.