Помогите написать программу пожалуйста умоляю !!!!!!!

Ответ:

var  

season,n_d,n_m:integer;

begin

Writeln('Введите номер месяца');Readln(n_m);

case n_m of

1,2,12:Writeln('Время года-Зима');

3,4,5:Writeln('Время года-Весна');

6,7,8:Writeln('Время года-Лето');  

9,10,11:Writeln('Время года-Осень');

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

end;

case n_m of

1,3,5,7,8,10,12:Writeln('Количество дней-31');

2:Writeln('Количество дней-28');

4,6,9,11:Writeln('Количество дней-30');

end;

end.

Объяснение: