打印正方形。

题目：

    打印一个由16个*组成的正方形。

代码：

program shen8;
var
  i:integer;

BEGIN
  for i := 1 to 4 do
  begin
     writeln('****')
  end;

END.

加强训练：打印数字1~80，每8个数字一行，共打印10行，打印时每个数字占3个格的宽度。

program shen7;
Var
  i:integer;
BEGIN
  for i:=1 to 80 do
  begin
    if i mod 8=0 then
      writeln(i:3)
    else
      write(i:3);
  end;
END.

加强训练：打印一个由1~9共9个数字组成的正方形。

program shen9;
var
  i:integer;

BEGIN
  for i := 1 to 9 do
  begin
    if i mod 3=0 then
      writeln(i)
    else
      write(i);

  end;
END.

加强训练：循环16次，打印一个由16个*组成的正方形。

program shen10;
var
  i:integer;

BEGIN
  for i := 1 to 16 do
  begin
    if i mod 4=0 then
      writeln('*')
    else
      write('*');
  end;
END.