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

Предыдущий
вопрос Следующий
вопрос

Привет! Вот короткая программа на языке Pascal, которая поможет определить название месяца:

program MonthName;
var
n, day: integer;
month: string;
begin
writeln('Введите количество месяцев:');
readln(n);
writeln('Введите день:');
readln(day);
n := n mod 12;
case n of
0: month := 'Январь';
1: month := 'Февраль';
2: month := 'Март';
3: month := 'Апрель';
4: month := 'Май';
5: month := 'Июнь';
6: month := 'Июль';
7: month := 'Август';
8: month := 'Сентябрь';
9: month := 'Октябрь';
10: month := 'Ноябрь';
11: month := 'Декабрь';
end;
writeln('На ', n, ' месяцев и ', day, ' дней после вашей даты будет месяц: ', month);
end.

Просто скопируйте этот код в среду разработки Pascal (например, Lazarus) и запустите. Введите количество месяцев и день, и программа выведет название месяца на указанную дату. Надеюсь, это поможет! Если у вас есть еще вопросы или понадобится дополнительная помощь, не стесняйтесь спрашивать.