begin comment longsin function ; long 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 := sin (x); write( x); writeon( y); end end ----stdout Algol60 program changes: - input/output functions - no real control variable in for-loop