RosettaCodeData/Task/Naming-conventions/ALGOL-68/naming-conventions-5.alg
2023-07-01 13:44:08 -04:00

8 lines
117 B
Text

.PR POINT .PR
.MODE .XINT = .INT;
.XINT SUM SQ:=0;
.FOR I .WHILE
SUM SQ .NE 70*70
.DO
SUM SQ .PLUSAB I .UP 2
.OD