29 lines
251 B
Plaintext
29 lines
251 B
Plaintext
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"
|
|
|
|
}
|
|
|