{* Задача 28 *}

Unit ZADACH28;
Interface
Implementation
Begin
 writeln('Определение по введеному номеру времени года(1-зима, 2-весна, 3-лето, 4-осень) месяцев и количество дней в каждом из месяцев');
End.

Program pas14468;

Uses zadach28.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  w : char;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Выберите время года:');
  writeln('1-зима');
  writeln('2-весна');
  writeln('3-лето');
  writeln('4-осень');
  readln(w);
  Case w Of  '1':
  Begin
    writeln('Зимние месяцы:');
    writeln(' декабрь - 31 день');
    writeln(' январь - 31 день');
    writeln(' февраль - 28(29) дней');
  End;
  '2':
  Begin
    writeln('Весенние месяцы:');
    writeln(' март - 31 день');
    writeln(' апрель - 30 дней');
    writeln(' май - 31 день');
  End;
  '3':
  Begin
    writeln('Летние месяцы:');
    writeln(' июнь - 30 дней');
    writeln(' июль - 31 день');
    writeln(' август - 31 день');
  End;
  '4':
  Begin
    writeln('Осенние месяцы:');
    writeln(' сентябрь - 30 дней');
    writeln(' октябрь - 31 день');
    writeln(' ноябрь - 30 дней');
  End;
  Else write('Такого времени года нет!');
End;
  readln
  End....