Программа

Program Pilshikov_5_48 (input,output);
{ Определить, является ли заданное
  натуральное совершенным,
  ( число = сумме всех своих
  положительных делителей, кроме
  самого себя )                   }
Var  N,NSum,i:integer;
BEGIN
  Writeln;
  Write('Введите число '); Readln(N);
  NSum:=0;
  for i:=1 to N div 2 do if N mod i =0 then NSum:=NSum+i;
  Write('Данное число ');
  if N<>NSum then Write('не');
  Writeln('совершенно ')
END.