var
    x,y,e,temp:real;
    i:byte;

begin
  x:=-0.5;
  while x<=(0.5+0.001) do
  begin
     i:=1;
     while e<=0.01 do
     begin
       e:=Abs(Abs(temp)-abs(exp(ln(x)*i) / i));
       temp:=(exp(ln(x)*i) / i);
       if i mod 2 = 0 then temp:=-1 * temp;
       y:=y + temp;
     end;
      Writeln('pri x = ',x:1:1,' y = ',y:1:3);
      x:=x+0.1;
  end;
end.