var x,e,n,x2,A:real;
begin
e:=0.001;
x:=0.4;
X2:=x*x;
A:=x;
N:=2;
Readln (A);
While (A>e) do
begin
A:=A*x2/(N*(N+1));
N:=N+2;
writeln('(a)=', a:0:5);
Readln (A);
end;
end.
Когда записано много вариантов и ты сидишь до утра, то не удивительно вставить другое. Так что не вижу ничего веселого.