Program PRACT7; Uses CRT; Var n, k, l, s: Word; ne: Word; f: Boolean; Begin Write('Введите N: '); ReadLn(n); If Odd(n) then ne := n div 3 else ne := n div 2; For k := 1 to ne do Begin s := 1; For l := 2 to k - 1 do Begin If (k mod l = 0) then Begin s := s + l; End; End; If (s = k) then Begin Writeln('Совершенное число: ',k); f := True; End; End; If not f then Writeln('Чисел не найдено'); ReadKey; End.
