1 - January
2 - February
3 - March
4 - April
5 - May
6 - June
7 - Jule
8 - August
9 - September
10 - October
11 - November
12 - December
var
n, i, fact:integer;
summ:real;
begin
write('n = '); readln(n);
fact := 1;
summ := 0;
for i := 1 to n do
begin
fact := fact * i;
summ := summ + 1 / fact;
end;
writeln('Сумма ряда равна ', summ);
end.
Скорее всего листья должны быть нарисованы инструментом ЭЛЛИПС.