program Prog;

const

 cH: Single = 0.2;

 cMinZ: Single = 2;

 cMaxZ: Single = 5;

var

 z: Single;

begin

 z := cMinZ;

 repeat

   Writeln(Sqrt(z)*Arctan(Sqrt(z)));

   z := z + cH;

 until z > cMaxZ;

end.