FUNC VOID main()
{ INT n,i,s
 
  n := 5
  s := 0
  i := n

  WHILE i
  DO
    { s := s + i*i 
      i := i - 1 
    }
  DONE

  PRINT "\n"

  i := n
  WHILE i-1
  DO
    { PRINT i, "^2 + "
      i := i - 1
    } 
  DONE

  PRINT "1^2 = ", s, "\n"

}