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

var
  k, N: word;
  A1, A2, A3, Ak: Integer;
  
begin
  writeln('Введите целое число N (> 2):');
  write(' N = ');
  readln(N);
  A1 := 1; //1-й элемент последовательности
  A2 := 2; //2-й элемент
  A3 := 3; //3-й элемент
  writeln;
  writeln('Выводим последовательность ', N, ' целых чисел:');
  writeln;
  write('  ', A1, '  ', A2, '  ', A3); //выводим A1, A2, A3
 { Для всех остальных элементов имеем: } 
  for k := 4 to N do
  begin
    Ak := A3 + A2 - 2 * A1; //находим k-й элемент
    write('  ', Ak); //выводим k-й элемент
    A1 := A2; //A1 меняем на A2
    A2 := A3; //A2 меняем на A3
    A3 := Ak  //A3 меняем на Ak
  end;
  readln();
end.