var A:  array [1..5,1..5] of integer;
                        i,j :integer;
begin
For i:= 1 to 5 do
 begin
  For j:= 1 to 5 do
   begin
    if j<i then A [i,j]:=0
    else if j>i then A[i,j]:=2
    else A[i,j]:=5;
    write(A[i,j]:2);
   end;
  writeln;
 end;
end.