program nguyeto_sinhdoi;

uses crt;

var n,i:integer;

funtion ktnt(k:integer):boolean;

var l:integer;

begin

       ktnt:=false;

       if k<2 then exit;

       for l:=2 to trunc(sqrt(k)) do

              if k mod l=0 then exit;

       ktnt:=true;

end;

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=3 to n-2 do

              if ktnt(i) and ktnt(i+2) then write('(',i,',',i+2,') ');

       readln;

end.

Trong lý thuyết số học, hai số nguyên tố p và q được gọi là cặp số nguyên tố sinh đôi nếu p - q = 2. Hai số nguyên tố sinh đôi là một cặp số nguyên tố chỉ cách nhau bởi đúng một số khác trên trục số tự nhiên. Ví dụ: Các cặp số nguyên tố sau là cặp số nguyên tố sinh đôi:(3, 5), (5, 7), (11,13), (17,19)...