Program Pola

Program pola;
uses wincrt;
var
i,j,n,a:integer;
begin
write ('tulis hingga suku ke n_');
readln (n);
a:=0;
for i:=1 to (n div 4)+1 do
begin
for j:= 1 to 4 do
begin
a:=a+1;
if a<= n then
write (a,' ')
else write (' ');
end;
writeln;
end;
end.