Source code in the pl/i programming language

declare (n, i) fixed binary;

get list (n);
do i = 1 to n by 4;
   put skip list (i);
end;