program z594;

uses crt;

var n:Integer;

i,j:longInt;

function simple(x:integer):boolean;

Var i:integer;

begin

i:=2;

While (i<=Sqrt(x)) and (x Mod i<>0)

Do Inc (i);Simple:=(i>Sqrt(x)) And (x<>0);

end;

Procedure NextSimple(var i:longInt);

var j,k: LongInt;

begin

Repeat

Inc(i);j:=1;

Repeat

Inc(j);

Until (j>Sqrt(i)) or (i mod j=0);

Until j>Sqrt(i);

end;

BEGIN

clrscr;

for n:=4 to 999 do

If not odd(n) then begin

i:=2;While (i<=n-1) and not Simple(n-i)

do NextSimple(i);

Writeln(n,'=',i,'+',n-i);

end;

readln;

END.