program Wyswietlanie_w_kolumnach;

var
  i,j:integer;

begin
  writeln('Metoda 1');
  for i:=1 to 57 do
  begin
    write('*** ');
    if i mod 6=0 then
    begin
      writeln;
    end;
  end;
  writeln;
  writeln('Metoda 2');
  j:=1;
  for i:=1 to 57 do
  begin
    write('*** ');
    if i>=6*j then
    begin
      writeln;
      inc(j);
    end;
  end;
  writeln;
  readln;
end.