Введите с клавиатуры номер месяца и выведите его название, используя разные цвета для каждого сезона - Pascal ABC - Ответ 7307107

uses crt;
var n: integer;
begin
     readln(n);
    case n of
    1:  textcolor (1);
    2:  textcolor (1);
    3:  textcolor (2);
    4:  textcolor (2);
    5:  textcolor (2);
    6:  textcolor (4);
    7:  textcolor (4);
    8:  textcolor (4);
    9:  textcolor (14);
    10:  textcolor (14);
    11:  textcolor (14);
    12:  textcolor (1);
    end;
    case n of
    1:   writeln('January');
    2:   writeln('February');
    3:   writeln('March');
    4:   writeln('April');
    5:   writeln('May');
    6:   writeln('June');
    7:   writeln('July');
    8:   writeln('August');
    9:   writeln('September');
    10:   writeln('September');
    11:   writeln('November');
    12:   writeln('December');
    end;
end.