Программа на Pascal

Никак не могу составить програмку уже все перепробовал - не получается... Последняя версия программы
Var p,d,x,y,s,a,n: real;
Begin
p:=1;
d:=-1;
n:=1;
a:=1;
Read (x);
while abs(a)>=1E-5 do
Begin
n:=n+1;
p:=x*x*p;
d:=d*(-1);
a:=(d/n)*p;
s:=s+a;

End;
Writeln ('s=',s);
y:=exp(-(x*x));
Writeln ('y=',y);
Writeln ('n=',n);
Writeln ('p=',p);
Writeln ('n=',n);
End.
Но работае всеравно неверно, а где оибки - найти не могу.
http://i50.fastpic.ru/big/2012/1208/4d/ac179bbad120bdc015ade3140e38d04d.jpeg вот задание

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.