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

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.