Program PTich;
Uses crt;
Var n, i: longint;

Function is_Prime(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;
        Write('Nhap n: '); Readln(n);

        For i := 2 to n do
                If (is_Prime(i)) and (is_Prime(n - i)) then
                Begin
                        Write(i,' ',n - i);
                        Break;
                End;
        Readln
End.

function nto(n:longint):boolean;
var i:longint;
begin
 if n < 2 then exit(false);
  for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0 then exit(false);
exit(true);
end;
var i,n:longint;
begin
 readln(n);
for i := 2 to n do
 if nto(i) and nto(n-i) then
      begin
        writeln(i,#32,n-i);
        break;
      end; 
readln;
end.