введите число - номер месяца (любого) и определите сколько дней в этом месяце.

PascalABC.NET 3.5.1

begin

 var day: integer->integer := x -> 28 + (x + floor(x/8)) mod 2 + 2 mod x + 2 * floor(1/x);

 var x := ReadInteger();

 Print($'В месяце {x} {day(x)} дней');

end.

Объяснение:

Не учитывает високосность года