Пользователь вводит номер месяца, программа выводит название сезона

например пользователь вводит 5 - программа ввводит-весна(Паскаль)

var a: integer;

begin

readln(a);

if (a < 12) then  

 begin

 if (a >= 0) then

   begin

     case a of 1: writeln('Январь'); end;

     case a of 2: writeln('Февраль'); end;

     case a of 3: writeln('Март'); end;

     case a of 4: writeln('Апрель'); end;

     case a of 5: writeln('Май'); end;

     case a of 6: writeln('Июнь'); end;

     case a of 7: writeln('Июль'); end;

     case a of 8: writeln('Август'); end;

     case a of 9: writeln('Сентябрь'); end;

     case a of 10: writeln('Октябрь'); end;

     case a of 11: writeln('Ноябрь'); end;

     case a of 12: writeln('Декабрь'); end;

   end;

 end;

end.

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

end.

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.