Составьте программу ряда ((f2*e^2)/1!)+((f3*e^3)/2!)+((f4*e^4)/3!)+….- Pascal(Паскаль)

uses crt;
var n,i,f,a,b:integer;
    s,t,e:real;
begin
clrscr;
repeat
write('Введите n>1 n=');
readln(n);
until n>1;
s:=0;//сумма
e:=1;//нулевое значение e^i
t:=1;//произведение f*e^i
a:=1;//f0
b:=1;//f1
for i:=1 to n do
 begin
  f:=a+b;//fi=f[i-2]+f[i-1]
  t:=t*exp(1)/i;//умножаем и делим на номер(обратный факториал)
  s:=s+f*t;//складываем
  a:=b;//меняем значения предыдущих чисел f
  b:=f;
 end;
write('S=',s:0:4);
readln
end.