{* Количество дней в месяце *}

Unit DNI;
Interface
Implementation
Begin
 writeln('Составить программу, которая бы определяла количество дней в месяце. Ввод месяца производить с клавиатуры русскими буквами. ');
End.

{Количество дней в месяце  Составить программу, которая бы определяла количество дней в месяце. Ввод месяца производить с клавиатуры русскими буквами.}
Program dni;

Uses dni.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  m : String;
  i : integer;
  k : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите интересующий Вас месяц: ');
  readln(m);
  If (m = 'Январь') Or (m = 'Март') Or (m = 'Май') Or (m = 'Июль') Or (m = 'Август')   Or (m = 'Октябрь') Or (m = 'Декабрь') Then
    k := 31;
  If m = 'Февраль' Then
    k := 28;
  If (m = 'Апрель') Or (m = 'Июнь') Or (m = 'Сентябрь') Or (m = 'Ноябрь') Then
    k := 30;
  writeln('В этом месяце ', k, ' дней');
  writeln('Нажмите Enter');
  readln; {* Приостановка программы. Ожидание Enter *}
End.