begin comment longarctan function ; long real x, y; integer n; % for x:= -2.5 step 0.1 until 2.5 do % for n:= -25 step 1 until 25 do begin x := n * 0.1; y := arctan (x); outreal (1, x); outreal (1, y); outstring (1,"\n") end end