begin comment cos function ; real x, y; integer n; % for x:= -3.2 step 0.1 until 3.2 do % for n:= -32 step 2 until 32 do begin x := n * 0.1; y := cos (x); write( x); writeon( y); end end