Sattolo cycle: Difference between revisions
m
→{{header|Free Pascal}}
Line 955:
a:=[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19];
i := length(a);
while i > 1 do // do not touch this, otherwise it becomes durstenfeld or worse
begin
dec(i);
| |||