Решить написать алгоритм умоляю !

var

 a, b, c: integer;

begin

 write('введите номер месяца - ');

 readln(a);

 case a of

   1, 2, 12:

     begin

       writeln('время года - зима');

       if (a = 1) or (a = 12) then write('кол-во дней - 31') else write('кол-во дней - 28')

     end;

   3, 4, 5:

     begin

       writeln('время года - весна');

       if (a = 3) or (a = 5) then write('кол-во дней - 31') else write('кол-во дней - 30')

     end;

   6, 7, 8:

     begin

       writeln('время года - лето');

       if (a = 7) or (a = 8) then write('кол-во дней - 31') else write('кол-во дней - 30')

     end;

   9, 10, 11:

     begin

       writeln('время года - осень');

       if (a = 9) or (a = 11) then write('кол-во дней - 30') else write('кол-во дней - 31')

     end;

 else write('введен неправильный номер месяца');

 end;  

end.