Проверить справедливость соотношений

program lab8;
var
e,x,y,a,t:real;
i,l:integer;
k:byte;
b:boolean;
begin
e:=0.001;
for k:=1 to 3 do begin
                      b:=false;
                      y:=0;
                      i:=1;
                      write('vvedite x:  ');
                      readln(x);
                      repeat
                            i:=i+1;
                            b:=not(b);
                            if b=true then l:=1
                                      else l:=-1;
                            a:=l*((i*exp(i*ln(x)))+1)/sqr(i);
                            y:=y+a;
                      until abs(a)<=e;
                      t:=x+1-sqr(pi)/12-ln(1+x);
                      if t=y then writeln('verno')
                             else writeln('ne verno');
                      writeln('x = ',x:3:2,'  y = ',y:10:6,'  t=  ',t:10:6);
 
                 end;
readln;
end.

uses crt;
var x,e,p,y,yi,t:real;
    i:integer;
begin
clrscr;
x:=0.9;
e:=0.0001;
i:=1;
p:=x;
y:=(x-1)/3;yi:=0;
writeln(y:0:5);
while abs(y-yi)>e do
 begin
  yi:=y;
  i:=i+1;
  p:=p*x*x;
  if odd(i) then  y:=y+(p-1)/(2*i+1)
  else y:=y-(p-1)/(2*i+1);
 end;
t:=(pi-4)/4+(x-arctan(x))/(x*x);
writeln('x=',x:0:1,'  y=',y:0:5,'  t=',t:0:5);
readln
end.