Дано натуральное число n. Определить будет ли оно совершенным. Число называется совершенным, если оно равно сумме своих делителей, кроме самого этого числа- Pascal(Паскаль)

program _04;

uses Crt;

var
  s, i, n: integer;

begin
  write('N: ');
  readln(n);
  s := 0;
  for i := 1 to n - 1 do
    if n mod i = 0 then
      s := s + i;
  if n <> s then
    write('Ne');
  writeln('sovershenno');
  readkey;

end.