8 lines
118 B
Text
8 lines
118 B
Text
'pr' quote 'pr'
|
||
'mode' 'xint' = 'int';
|
||
'xint' sum sq:=0;
|
||
'for' i 'while'
|
||
sum sq≠70×70
|
||
'do'
|
||
sum sq+:=i↑2
|
||
'od'
|