Паскаль выдаёт ошибку exitcode 205.Что не так?
program summa;
var
n:integer;x,a,S:real;
begin
x:=1;
a:=1;
S:=1;
n:=0;
while Abs(a)>1E-6 do
begin
a:=a*(-1)*x*x*(2*n+1)/2*n+3;
S:=4*S+a;
n:=n+1;
end;

У тебя отсутствует END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.