Nhập vào một số nguyên dương N,tách số N thành các cặp là tổng của hai số nguyên tố VD: 14 thành cặp 3+11

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 div 2) do
      if (nt(i))and(nt(n-i)) then writeln(i,'+',n-i);
readln
end.

uses crt;
var n,i:longint;
function isPrimeNumber(a:longint):boolean;
var i:longint;
begin
   if a<2 then exit(false);
   for i:=2 to trunc(sqrt(a)) do
      if a mod i=0 then exit(false);
   exit(true);
end;
begin
clrscr;
   readln(n);
   for i:=1 to n div 2 do
      if(isPrimeNumber(i))and(isPrimeNumber(n-i))then writeln(i,'+',n-i);
readln;
end.