uses crt;
var a,b,n,i,j:longint; d:text;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>2)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
assign(d,'GOLDBACH.pas'); reset(d);
readln(d,n);
If n mod 2<>0 then writeln('Nhap lai') else
begin
for i:=1 to n do
for j:=1 to n do
if(nt(i))and(nt(j))and(i+j=n)then begin a:=i; b:=j; end;
writeln(a,'+',b,'=',n);
end;
close(d);
readln
end.
Đây là cách ngắn ,đơn giản nhất ,nếu các bạn thấy hay nhớ vote cho m nha