18 lines
271 B
Text
18 lines
271 B
Text
var n, c, i;
|
|
begin
|
|
n := 0; c := 1;
|
|
! c;
|
|
while n <= 9 do
|
|
begin
|
|
n := n + 1;
|
|
i := 0;
|
|
while c > 0 do
|
|
begin
|
|
c := c - (n + 1);
|
|
i := i + 1
|
|
end;
|
|
c := 2 * (2 * n - 1) * c / (n + 1);
|
|
c := c + 2 * i * (2 * n - 1);
|
|
! c
|
|
end;
|
|
end.
|