Помогите,пожалуйста!! Очень-очень нужно! необходимо решить через pascal!! буду очень благодарна !!!!

var f1,g1,fn,gn:real; begin   f1:=1;   g1:=1;   for var i:=2 to 5 do begin     fn:=f1-g1;     gn:=f1+2*g1;     writeln('F(',i,')=',fn,' G(',i,')=',gn);     f1:=fn;     g1:=gn;   end;   writeln('F(5)/G(5)=',fn/gn); end. Результат: F(2)=0 G(2)=3 F(3)=-3 G(3)=6 F(4)=-9 G(4)=9 F(5)=-18 G(5)=9 F(5)/G(5)=-2