решите по Информатике ве нужно там способ решения.

program gt;var i:integer;f:array [0.. 100]of integer;beginwriteln('F(',1,') = ',1);writeln('F(',2,') = ',1);f[1]:=1;f[2]:=1;for i:=3 to 7 dobeginf[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.Напиши все изменения там где надо в программе и он выводить всё что тебе надо