[AND_REY]

Может так:

Код:

Var
 i, n, k, Xn: Integer;
begin
 n:= 4;
 k:= 3;
 Xn:= 1;
 For i:= 1 To k Do Xn:= Xn + (n - i);
end;