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 then
        a[i, j] := 0
      else
        a[i, j] := 6 - j;
      Write(a[i, j]:4)
    end;
    Writeln
  end
end.