Вычислить функцию f(x), используя ее разложение в степенной ряд в двух случаях

function f1(x:real;n:integer):real;
var i:integer;
    t,s:real;
begin
t:=1;
s:=t;
for i:=1 to n do
 begin
  t:=t*x/i;
  s:=s+t;
 end;
f1:=s;
end;
function f2(x,e:real):real;
var t,s:real;
    n:integer;
begin
t:=1;
s:=t;
n:=0;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x/n;
  s:=s+t;
 end;
f2:=s;
end;
var x,e,h:real;
    n:integer;
begin
repeat
write('Введите n>0 n=');
readln(n);
until n>0;
e:=0.0001;
h:=1/15;
x:=1;
writeln('-------------------------------------------------------------');
writeln('|  x  | y при заданном n | y при заданной точности | exp(x) |');
writeln('-------------------------------------------------------------');
repeat
writeln('|',x:5:2, '|', f1(x,20):13:4,'     |',f2(x,e):17:4,'        |',exp(x):8:4,'|');
x:=x+h;
until x>2;
writeln('--------------------------------------------------------------');
end.