Помогите с информатике

Задайте верную последовательность операторов для решения задачи:
(ответ: 243354 - примерно такой ответ должен быть)
опишите функцию Ex(x, e) вещественного типа (параметры x, е — вещественные, е>0), находящую приближенное значение функции exp(x): exp(x)=1+x+x^2/(2!) + x^3/(3!) +...+ x^n/(n!) +... . В сумме учитывать все слагаемые, большие e. С помощью Ex найти приближенное значение экспоненты для данных x и е.

1) ex:=y; end;
2) function f( n:word):longint; var i:
byte; begin
3) while s>e do begin s:=s*x/f(i);
y:=yts; inc(i); end;
4) var z,t:real;
5) function ex( x,e:real):real; var i: byte;
y,s:real; begin
6) y:=1; S:=1;1:=1;
7) f:=1; for i:=1 to n do f:=f*i; end;
8) write(‘Vvedite tochnost '); readIn(t);
9) begin write(‘Vvedite chislo ');
readIn(z);
10) Writeln(‘Exp(', z:6:2, ') = ',ex(z,t):6:4);
readIn; end.