по идее 280 кб или 280 000 байт
var N,i,k:integer;
BEGIN
readln(N);
k:=0;
for i:=1 to N div 2 do
if (N mod i=0) then
k:=k+i;
if (k=N) then
writeln('Да') else
writeln('Нет');
end.