Программа, определяющая является ли число совершенным. Число является совершенным, если оно равно сумме всех своих делителей, включая единицу. (Например 6=1+2+3, 28=1+2+4+7+14).

Program sover;
uses crt;
var a, i, s: integer;
begin
 clrscr;
 write('Введите целое число а: ');
 readln(a);
 s:=0;
 for i:=1 to a div 2 do
 if a mod i=0 then
 begin
 s:=s+i;
 write('+', i);
 end;
 if s=a then writeln(' Число ',a, ' совершенное')
 else writeln(' Число ', a, ' не совершенное');
 readln;
end.

---