вычислить последовательность n чисел

[Arinaeros]

С помощью цикла for вычислить последовательность n чисел A0=x,А1=2,Ak=Ak-1—Ak-2

[macomics]

#include <iostream>
int main(int argc, char *argv[]) { int n = 10, x = 0; std::cin >> n; std::cin >> x; for (int i = 0, k0 = x, k1 = 2, t; i <= n; ++i, t = k0 - k1, k0 = k1, k1 = t) std::cout << k1 << ", "; return 0; }

[newerow1989]

var a: array of integer;
    i, n, x: integer;
begin
   Write('n = '); Readln(n);
   Write('x = '); Readln(x);
   if n<2 then
      n:=2;
   SetLength(a, n);
   a[0]:=x;
   a[1]:=2;
   for i:=2 to n-1 do
      a[i]:=a[i-1]-a[i-2];
   for i:=0 to n-1 do
      Write(a[i]:3, '  ');
   Writeln;
   Readln;
end.

[Arinaeros]

)))