viết chương trình tính S5, dùng pascal S5=e^x=1+x/1!+x ²/2! +… + x^n/n! khó nên ai làm xg trc mà đúng sẽ cho ctlhn

uses crt;
var i,n,x:word;
    lt,gt:longint;
    s:real;
begin
    clrscr;
    write(‘x=’);readln(x);
    write(‘n=’);readln(n);
    gt:=1;
    lt:=1;
    s:=1;
    for i:=1 to n do
       begin
           lt:=lt*x;
           gt:=gt*i;
           s:=s+lt/gt;
       end;
    writeln(s:0:3);
readln;
end.