楼上的楼上这个逼装得漂亮

program P100(input, output);
var c, n: integer;
begin
write(2:2, ' ', 3:2, ' ', 5:2, ' ', 7:2, ' ');
c:=4;
for n:=11 to 100 do
begin
if (n mod 2=0) or (n mod 3=0) or (n mod 5=0) or (n mod 7=0) then continue;
write(n:2, ' ');
c:=(c+1) mod 5;
if c=0 then writeln;
end;
readln;
end.