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

Так как в задаче нет уточнений про год, то мы будем считать, что в феврале 28 дней, а не 29, как бывает в високосном.

Так как такой месяц встречается лишь раз в году, мы добавим это первым условием:

if (nomer_mes = 2) then

writeln ('В месяце с таким порядковым номером 28 дней');

Далее идут четыре месяца, в которых 30 дней, а потом все остальные, в которых по 31 дню. Эти остальные мы запишем в тело else:

if (nomer_mes = 4) or (nomer_mes = 6) or (nomer_mes = 9) or (nomer_mes = 11) then

writeln ('В месяце с таким порядковым номером 30 дней')

и последнее сообщение для остальных месяцев:

else

writeln ('В месяце с таким порядковым номером 31 день');