begin integer n, nn; integer procedure sqr(integer value m); begin m*m end; n := 123; nn := sqr(n); write(nn) end ----stdout comments: - Algol60 program changes: - input/output functions - description of passed variable - return value definition