Mukemmel Sayi

Mükemmel sayı, sayılar teorisinde, kendisi hariç pozitif tam bölenlerinin toplamı kendisine eşit olan sayı. Diğer bir ifadeyle, bir mükemmel sayı, bütün pozitif tam bölenlerinin toplamının yarısına eşittir.

program mukemmel(input,output);
var
sayi,bolen,i : integer;
begin
bolen:=0;
writeln('sayiyi Giriniz');
readln(sayi);
if sayi>0 then
   begin
   for i:=1 to sayi-1 do
       begin
       if sayi mod i = 0 then
          bolen:= bolen+i
       end;
   if bolen = sayi
   then
      begin
      writeln('sayi mukemmel sayidir')
      end
   else
       writeln('sayi mukemmel degildir')
   end
else
 writeln('sayi 0"dan buyuk olmali');
 readln()
 end.