[Игорь Кулакевич]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

Админ: не забываем про оформление кода!

// помогли добрые люди с http://programmersforum.ru
а Pilot_Red я смотрю сильно умный.
всем спасибо.