Надобно написать программку которая находит значение функции e-x2 через ряд Тейлора,

var
nbsp;nbsp;n, k, e: integer;
nbsp;nbsp;x, y, y1, xmin, xmax, d, p, t: real;
nbsp;
begin
nbsp;nbsp;write(Введите xmin и xmax: );//диапазон иксов
nbsp;nbsp;readln(xmin, xmax);
nbsp;nbsp;write(Введите Е и N: );//Е-символ после запятой(оборотный эпсилон), N-колличество точек
nbsp;nbsp;readln(e, n);
nbsp;nbsp;p := power(10, -e);//точность вычислений
nbsp;nbsp;writeln(p);
nbsp;nbsp;d := abs(xmax - xmin) / (n - 1);//интервал меду точками
nbsp;nbsp;writeln(Шаг X: , d);
nbsp;nbsp;
nbsp;nbsp;x := xmin;
nbsp;nbsp;writeln(_______________________________________________);
nbsp;nbsp;writeln(X nbsp;Y , * e, Колво членов рядаy1, * e, );
nbsp;nbsp;writeln(_______________________________________________);
nbsp;nbsp;for var i := 1 to n do //для каждой точки Х вычисляем значения,
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;y1 := exp(-(x * x));//интегрированная в паскаль функция экспоненты
nbsp;nbsp;nbsp;nbsp;k := 0; нулевой индекс
nbsp;nbsp;nbsp;nbsp;y := 1; изначальное значение итоговой суммы
nbsp;nbsp;nbsp;nbsp;t := 1;знчение члена ряда при k=0
nbsp;nbsp;nbsp;nbsp;while abs(t) gt;= (p) do пока модуль очердного члена ряда не меньше точности nbsp;//нахождение значения функции при поддержки степенного ряда
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;k := k + 1;следующий член
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;t := -t * x * x / k;домножаем на х^2(возводим в ступень) и разделяем на индекс(оборотный факториал)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;y := y + t;суммируем
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;writeln();
nbsp;nbsp;nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;writeln(x:3, , y:e + 2:e, , k + 1:2, nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;, y1:e + 2:e);//выводим значение х, найденной функции, количества слагаемых в ряду Тейлора(t) и значение функции встроенной в паскаль для проверки
nbsp;nbsp;nbsp;nbsp;x := x + d;//последующая точка
nbsp;nbsp;end;
end.