решите по Информатике ве необходимо там метод решения.

Program gt;
var i:integer;
f:array [0.. 100]of integer;
begin
writeln('F(',1,') = ',1);
writeln('F(',2,') = ',1);
f[1]:=1;
f[2]:=1;
for i:=3 to 7 do
begin
f[i]:= f[i-2]*(i-1) + 2;
writeln('F(',i,') = ','f[',i-2,'] * ',i-1,'+ 2 =',f[i-2],'*',i-1,'+ 2=', f[i]);
end;
end.
Напиши все конфигурации там где надобно в программке и он выводить всё что для тебя надо