Задание 3 Составить программу, выводящую время года в зависимости от номера

var
n: longint;

begin
write(Введите порядковый номер месяца: );
readln(n);
if (n = 1) then writeln(Данный месяц январь. Время года зима.);
if (n = 2) then writeln(Данный месяц февраль. Время года зима.);
if (n = 3) then writeln(Данный месяц март. Время года весна.);
if (n = 4) then writeln(Данный месяц апрель. Время года весна.);
if (n = 5) then writeln(Данный месяц май. Время года весна.);
if (n = 6) then writeln(Данный месяц июнь. Время года лето.);
if (n = 7) then writeln(Данный месяц июль. Время года лето.);
if (n = 8) then writeln(Данный месяц август. Время года лето.);
if (n = 9) then writeln(Данный месяц сентябрь. Время года осень.);
if (n = 10) then writeln(Данный месяц октябрь. Время года осень.);
if (n = 11) then writeln(Данный месяц ноябрь. Время года осень.);
if (n = 12) then writeln(Данный месяц январь. Время года зима.);
end.