Напишите программу потзаданному номеру месяца выводилось его название и указано количество дней в месяце

Паскаль 

  Var
month:integer;
  Begin
 readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln (Январь (31 день) );
2 : writeln (Февраль (28 дней) );
3 : writeln (Март (31 день));
4 : writeln (Апрель (31 день) );
5 : writeln (Май (28 дней));
6 : writeln (Июнь (31 день);
7 : writeln (Июль (31 день) );
8 : writeln (Август (28 день) );
9 : writeln (Сентябрь (31 день);
10 : writeln (Октябрь (31 день) );
11 : writeln (Ноябрь (28 дней) );
12: writeln (Декабрь (31 день));
end
else writeln(Ошибка);

End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.