begin
  var a: array[1..5, 1..5] of integer;
  for var i := 1 to 5 do
  begin
    for var j := 1 to 5 do
    begin
      if (i + j > 2 * i) and (i + j < 6) or
         (i + j < 2 * i) and (i + j > 6) then
        a[i, j] := 0
      else
        a[i, j] := j;
      Write(a[i, j]:4)
    end;
    Writeln
  end
end.