52222
05222
00522
00052
00005
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.