var i,j:longint;
begin
        for i := 3 to 5 do
        begin
                for j := 5 downto 4 do
                begin
                        write(i:3,j:3);
                        write(j:3,i:3);
                end;

        end;
end.

Theo như các bạn viết nhá thì kết quả ra (1) còn khi mình sửa code ở bên dưới là kết quả ra (2).

var i,j:longint;
begin
        for i := 3 to 5 do
        begin
                for j := 5 downto 4 do
                begin
                        write(i:3,j:3,' ');
                        write(j:3,i:3);
                end;
  writeln;
        end;
end.

p/s: (1), (2) lần lượt là 2 ảnh.

@Hômnaytôibịrob

for i := 3 to 5 do

⇒ Giá trị i chạy từ 1 đến 5

for j := 5 downto 4 do

⇒ Giá trị j chạy từ 5 về 4

+ Khi i = 3 

⇒ j = 5 ⇒ 3   5

⇒ j = 4 ⇒ 3   5   3   4

+ Khi i = 4

⇒ j = 5 ⇒ 3   5   3   4   4   5

⇒ j = 4 ⇒ 3   5   3   4   4   5   4   4

+ Khi i = 5

⇒ j = 5 ⇒ 3   5   3   4   4   5   4   4   5   5

⇒ j = 4 ⇒ 3   5   3   4   4   5   4   4   5   5   5   4   

⇒ write(i : 3, j : 4);

⇒ Kết quả : 3   5   3   4   4   5   4   4   5   5   5   4   5   4