Mình không giỏi về pascal lắm nhưng bạn xem thử nhan :

program SoNguyenToGhep;

function LaSoNguyenTo(num: integer): boolean;
var
  i: integer;
begin
  LaSoNguyenTo := True;
  for i := 2 to Trunc(Sqrt(num)) do
    if num mod i = 0 then
    begin
      LaSoNguyenTo := False;
      Exit;
    end;
end;

function LaySoNguyenToGhepThuK(K: integer): integer;
var
  hienTai, dem: integer;
begin
  hienTai := 23; // Bắt đầu từ phần tử thứ 3 trong dãy B
  dem := 0;

  while dem < K do
  begin
    if LaSoNguyenTo(hienTai) then
      Inc(dem);
    Inc(hienTai);
  end;

  LaySoNguyenToGhepThuK := hienTai - 1; // Trả về số nguyên tố ghép thứ K
end;

var
  K: integer;
begin
  write('Nhap so nguyen duong K (K <= 500): ');
  readln(K);

  if (K > 0) and (K <= 500) then
    writeln('So nguyen to ghep thu ', K, ' la: ', LaySoNguyenToGhepThuK(K))
  else
    writeln('K khong hop le. Nhap K trong khoang 1 den 500.');
end.