uses crt;
var i,j,n,x,y:longint; a:array[1..100000]of 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('Nhap N: ');readln(n);
for i:=2 to n do
for j:=2 to i do
if (nt(i))and(nt(j))and(i+j=n) then begin x:=i; y:=j; end;
writeln('2 so nguyen to: ',x,' ',y);
a[1]:=1; a[2]:=1;
for i:=3 to 45 do
a[i]:=a[i-1]+a[i-2];
x:=0;
for i:=2 to 45 do
for j:=2 to i-1 do
if a[i]+a[j]=n then begin x:=a[i]; y:=a[j]; end;
if x=0 then writeln('Khong co 2 so fibonaci co tong la n') else
writeln('2 so fibonaci: ',x,' ',y);
readln
end.
