[FlyInDream]

Код:

...
a1 := (2*L/X + (i * (X - 1)))/2;
for j := 1 to X do begin
Write(a1, ' ');
a1 := a1 - i;
end;