8 lines
97 B
Text
8 lines
97 B
Text
.PR UPPER .PR
|
|
MODE XINT = INT;
|
|
XINT sum sq:=0;
|
|
FOR i WHILE
|
|
sum sq/=70*70
|
|
DO
|
|
sum sq+:=i**2
|
|
OD
|