Математическая задача Опции

[Игорь]

Помогите пожалуйста с задачей:

Определить, является ли заданное натуральное число совершенным, т.е. Равным сумме всех своих (положительных) делителей, кроме самого этого числа (напр. Число 6 совершенно: 6=1+2+3).

[FreeMan]

замени

while s<>0 do begin
writeln(s mod 10, '  ');
s:=s div 10;
end;

на

while s<>1 do begin
for i:=1 to s do if s mod i=0 then begin 
write(i,'  ');
s:=s div i;
end;
end;

Закомпилил. Выдает чепуху при вводе напрример 8 выдаст 6 6. Вы сами компилили?

Я код не проверяю... Но в данном случае сработала, как задумано, просто я не понял вопрос.
З.Ы. Можно на "ты"