Вывести значения рекурсивной функции при значениях аргумента от 1 до 10 включительно - Pascal ABC

Формулировка задачи:

Вывести значения рекурсивной функции при значениях аргумента от 1 до 10 включительно. Найти член последовательности, заданной следующим образом: y₁=0; y₂=10; y_n=2∙y_n-1-y_n-2, где n>2. Помогите пожалуйста, как-то не получается. :C

Program Lab4_2;
 
function recursion(y, n :integer):integer;
begin
if n > 2 then recursion := 2*recursion(y, n - 1) - recursion(y, n - 2);  
end;
 
begin
Var i, y:integer;
read(y);
for i := 1 to 10 do
writeln(recursion(y, i));
end.

Решение задачи: «Вывести значения рекурсивной функции при значениях аргумента от 1 до 10 включительно»

Листинг программы

function recursion(n :integer):integer;
begin
if n=1 then recursion:=0
else if n=2 then recursion:=10
else recursion:=2*recursion(n-1)-recursion(n - 2);
end;
Var n:integer;
begin
for n:=1 to 10 do
writeln(recursion(n));
end.

Объяснение кода листинга программы

В данном коде объявлена рекурсивная функция recursion, которая принимает целочисленный аргумент n. Внутри функции проверяется базовый случай, когда n равно 1, в этом случае функция возвращает 0. Если n равно 2, то функция возвращает 10. В остальных случаях функция вызывает саму себя, передавая n-1 и n-2 в качестве аргументов, и умножает результат на 2. Затем в блоке for происходит итерация от 1 до 10 (включительно). На каждой итерации вызывается функция recursion с аргументом n и результат выводится на экран с помощью функции writeln. Таким образом, данный код выводит значения рекурсивной функции при аргументах от 1 до 10 включительно.