Dùng chương trình Pascal Nhập vào một số nguyên dương N,đổi N thành các cặp a,b sao cho a+b=N và a,b là số nguyên tố,in ra màn hình một số là số các cặp tìm được

uses crt;
var n,i:longint; 
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n-2 do
      if (nt(i))and(nt(n-i)) then writeln(i,' ',n-i);
readln
end.

program bien_doi;

uses crt;

var n,i:integer;

{---Ham-nguyen-to---}

function ktnt(k:integer):boolean;

var e:integer;

begin

       ktnt:=false;

       if k<2 then exit;

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

              if k mod e=0 then exit;

       ktnt:=true;

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

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

       for i:=2 to n div 2 do

             if ktnt(i) and ktnt(n-i) then writeln(i,' ',n-i);

       readln;

end.