Если не сложно,Пожалуйста посчитайте пожалуйста Протабулировать функцию в паскале Условия: (сумма) S=1+3x^2/1!+5x^4/2!+.... (диапазон изменений [0,1;1] n=10 (функция) y=(1+2x^2)*e^x^2

{
  S(x) = 1 + 3x^2/1! + 5x^4/2! + ... =
  = (x)' + (x^3/1!)' + (x^5/2!)' + ... =
  = (x + x^3/1! + x^5/2! + ... )' =
  = (x * (1 + x^2/1! + x^4/2! + ...) )' =
  = (x ^ e^(x^2))' =
  = e^(x^2) + x * 2x*e^(x^2) =
  = (1 + 2x^2)*e^(x^2) =
  = y(x)
}

const n = 10;

function y(x:real):real;
begin
 y := (1 + 2*sqr(x)) * exp(sqr(x));
end;

var i:integer; x:real;
begin
 for i := 1 to n do
  begin
  x := i/n;
  writeln(x:3,' : ',y(x));
  end;
end.