6 lines
91 B
Text
6 lines
91 B
Text
declare (n, i) fixed binary;
|
|
|
|
get list (n);
|
|
do i = 1 to n by 4;
|
|
put skip list (i);
|
|
end;
|