Найти все совершенные числа, меньшие числа n.(Совершенное число, равно сумме всех своих делителей, исключая (программа Паскаль)

Question

Найти все совершенные числа, меньшие числа n.(Совершенное число, равно сумме всех своих делителей, исключая самого себя, например 6=1+2+3.)(6, 28, 496, 8128,…, всего найдено 24 совершенных числа.)

Answer 1

program z3;
uses crt;
var i,j,n,m:integer;
begin
 write('введи число'); read(n);
for i:= 2 to n do  begin
m:=0;
for j:=1 to i-1 do
 if i mod j=0 then m:=m+j;
 if m=i then     writeln (i) ;
 end;
end.