uses crt; var t2,n:word; function snt(x:word):boolean; var t1:word; begin snt:=true; if x<2 then exit(false) else for t1:=2 to round(sqrt(x)) do if x mod t1=0 then exit(false); end; BEGIN clrscr; write('Nhap n:'); readln(n); write('N='); for t2:=2 to n div 2 do if (snt(t2)) and (snt(n-t2)) then begin write(t2,'+',n-t2); break; end; readln END.
