Program stor25;
var x:real;
n:byte;
 
function arcsin(x:real):real;
begin
arcsin:=arctan(x/sqrt(1-sqr(x)));
end;
 
procedure z(x:real);
begin
writeln(x:4:2,^i,(arcsin(2*x)+abs(x))/(sqr(x)+1):4:2);
end;
 
begin
 
writeln('x',^i,'z');
 
writeln; 
x:=0;
while x<=0.4 do begin
z(x);
x:=x+0.2;
end;
 
writeln;
x:=0.1;
for n:=1 to 6 do begin
z(x);
x:=x+0.05;
end;

end.