var
i, n, d, sumad : integer;
ulaz, izlaz : Text;
begin
Assign(ulaz,’savrseni.in’);
Assign(izlaz,’savrseni.out’);
Reset(ulaz); Rewrite(izlaz);
Read(ulaz, n);
for i := 2 to n do
begin
sumad := 1;
for d := 2 to i div 2 do
if i mod d = 0 then sumad := sumad + d;
if sumad = i then
begin
Write(izlaz, i,
' = 1');
for d := 2 to i div 2 do
if i mod d = 0 then
Write(izlaz, ' + ',d);
WriteLn(izlaz);
end;
end;
Close(ulaz); Close(izlaz);
end.
