Pascal помоогите!!!!

Question

Натуральное число называется совершенным, если оно равно сумме всех своих делителей, за исключением себя самого. 
6=1+2+3 
8≠ 1+2+4. 
Дано натуральное число n. Получить все совершенные числа, меньше n.

Дашута Косенкова · Accepted Answer

Перебором, вперед. 
for i:=1 to n do begin 
 s:=0; 
 for j:=2 to floor(sqrt( i)) do 
 if i mod j = 0 then s:=s+j+i div j; 
 if i=s then writeln(s); 
end;