- Chọn ô hoặc dải ô cần định dạng tiền tệ.

- Nhấp chuột phải và chọn "Format Cells" (Định dạng ô).

- Trong hộp thoại "Format Cells", chọn tab "Number" (Số).

- Ở phần "Category" (Danh mục), chọn "Currency" (Tiền tệ).

- Trên thanh bên trái, chọn đồng tiền "Vietnamese đồng (VND)".

- Chọn các tùy chọn định dạng khác nếu cần.

- Nhấn "OK" để áp dụng định dạng và đóng hộp thoại.

program TimSoNguyenToTrongDoan;

var

    a, b, i, j: Integer;

    laNguyenTo: Boolean;

begin

    Write('Nhap a: ');

    Readln(a);

    Write('Nhap b: ');

    Readln(b);

    Write('Cac so nguyen to trong doan tu ', a, ' den ', b, ' la: ');

    // Vòng lặp duyệt qua tất cả các số từ a đến b

    for i := a to b do

    begin

        // Kiểm tra xem i có phải là số nguyên tố không

        laNguyenTo := True;

        for j := 2 to Trunc(Sqrt(i)) do

        begin

            if (i mod j = 0) then

            begin

                laNguyenTo := False;

                Break;

            end;

        end;

        // Nếu i là số nguyên tố, in ra màn hình

        if (laNguyenTo) and (i > 1) then

            Write(i, ' ');

    end;

    Readln;

end.