Пожалуйста, напишите программу, которая вводит натуральное число N и определяет является ли число N совершенным. в паскале

Совершенное число - натуральное число, равное сумме всех своих собственных делителей (то есть всех положительных делителей, отличных от самого числа).  //Pascalvar  n, s, i: integer;begin  s := 0;  readln(n);  // Находим делители до n-1, увеличиваем сумму s на i,   // если i - делитель введенного числа  for i := 1 to n - 1 do    if n mod i = 0 then s := s + i;    if s = n then    writeln('cовершенное')  else       writeln('не совершенное');end.