По заданному году G и номера месяца M определите количество дней в месяце.
Это нужно делать в Паскале(с помощью структуры Case).

Program Primer;var m,g:Integer;beginWrite('Введите год: ');ReadLn(g);Write('Введите номер месяца: ');ReadLn(m);if (g mod 4=0) and (m=2)then WriteLn('В феврале ',g,' года 29 дней')elsecase m of1: WriteLn('В январе 31 день');2: WriteLn('В феврале 28 дней');3: WriteLn('В марте 31 день');4: WriteLn('В апреле 30 дней');5: WriteLn('В мае 31 день');6: WriteLn('В июне 30 дней');7: WriteLn('В июле 31 день');8: WriteLn('В августе 31 день');9: WriteLn('В сентябре 30 дней');10: WriteLn('В октябре 31 день');11: WriteLn('В ноябре 30 дней');12: WriteLn('В декабре 31 день')else WriteLn('Такого месяца не существует');end;end.