Надо написать программу в дельфи.

[L0102591]

Case4°. Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 —февраль и т. д.). Определить количество дней в этом месяце для невисокосного года.

[noxin]

mes,n : integer;
case n of
1,3,5,7,8,10,12 : mes := 31;
2: mes := 28;
4,6,9,11: mes := 30;
end;