прошу решать тех,кто понимает Паскаль.Информатика,8 класссрооочнооо​

program mecyac;

var m:integer;

begin

write('Введите номер месяца: ');readln(m);

   if (m=1) then writeln('В этом месяце 31 дней.') else

   if (m=2) then writeln('В этом месяце 28 дней.') else

   if (m=3) then writeln('В этом месяце 31 дней.') else

   if (m=4) then writeln('В этом месяце 30 дней.') else

   if (m=5) then writeln('В этом месяце 31 дней.') else

   if (m=6) then writeln('В этом месяце 30 дней.') else

   if (m=7) then writeln('В этом месяце 31 дней.') else

   if (m=8) then writeln('В этом месяце 31 дней.') else

   if (m=9) then writeln('В этом месяце 30 дней.') else

   if (m=10) then writeln('В этом месяце 31 дней.') else

   if (m=11) then writeln('В этом месяце 30 дней.') else

   if (m=12) then writeln('В этом месяце 31 дней.') else

   writeln('Введено не верное число месяца.');

end.

Кратко:

Начало программы месяц;

Сталая переменная ;

Начало програми;

Вывод на экран надписи "Введите число месяца";Ввод числа месяца;

Условные оператор в условном оператори которые проверяют на наличия соствующего числа и подстановка под него подписи;

последний условный оператор выводит что число введено не верно поскольку оно не в диапазоне чисел и вывод на экран соствующей надписи;

конец програми.