Если не сложно,помогите пожалуйста
Протабулировать функцию в паскале Условия:
(сумма) 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.