Напишите программу которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до N
pascal

var  i, j, n, p: integer;begin  readln(n);  for i := 1 to n do  begin    p := 0;    for j := i - 1 downto 1 do      if (i mod j = 0) then p := p + j;    if p = i then writeln(i, '- совершенное число');  end;end.