паскаль последовательность

var
  Ak, Ak1, Ak2, Ak3: Real;
  N, i: Integer;

begin
  Write('Введите N: ');
  Readln(N);
  Writeln('Значения функции:');
  Writeln('A(1)=1');
  Writeln('A(2)=2');
  Writeln('A(3)=3');
  Ak1 := 1;
  Ak2 := 2;
  Ak3 := 3;
  for i := 4  to N do
  begin
    Ak := Ak3 + Ak2 - 2 * Ak1;
    Writeln('A(', i, ')=', Ak);
    Ak1 := Ak3;
    Ak2 := Ak2;
    Ak3 := Ak; 
  end;
  readln();
end.