Localize file www.TrSek.com/zadania/dokoncisla.pas

{ DOKONCISLA.PAS                                 Copyright (c) Pheo }
{ Program urèí èi èíslo je dokonalé èíslo.                          }
{                                                                   }
{ Datum:24.06.1997                             http://www.trsek.com }

program dokoncisla;
const n=100;
var i:array[1..n] of integer;
    c,a,x,y:integer;
begin
c:=0;
writeln('zadaj cislo od 1 do 100');
read(a);

for x:=1 to a-1 do
begin
y:=a mod x;
if y=0 then
  begin
   i[x]:=x;
   c:=c+i[x];
   writeln(c)
  end;
end;

if c=a then writeln('dokonale cislo')
        else writeln('nedokonale cislo');
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com