uses crt;
var n, i, s, cs: integer; aruoc: array [1..100000] of longint;
begin
clrscr;
write('Nhap so n: ');readln(n);
s:=0;
for i:= 1 to n-1 do if n mod i = 0 then
begin
s:=s+i;
inc(cs);
aruoc[cs]:=i;
end;
if s = n then
begin
write(n, ' la so hoan chinh vi ');
for i:=1 to cs-1 do write(aruoc[i],' + ');
write(aruoc[cs],' = ',n);
end
else writeln(n, ' khong phai la so hoan chinh');
readln
end.