Сначала года по некоторый день прошло n месяцев и 2 дня. Определить название месяца **...

Question

Сначала года по некоторый день прошло n месяцев и 2 дня.
Определить название месяца
На паскале

Answer 1

Const m:array[0..11] of string = ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
 var n:integer;
begin
Readln(n);
Writeln(m[n mod 12]);
end.