Submission #3617596

---

Source Code Expand

var n,x:int64;   i:longint;
begin
readln(n);x:=1;
if n=1 then
  begin
  write('Deficient');halt;
  end;
for i:=2 to trunc(sqrt(n)) do
  if n mod i=0 then
    begin
    x:=x+i;
    if i*i<>n then x:=x+n div i;
    end;
if x=n then write('Perfect')
else if x<n then write('Deficient')
else write('Abundant');
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result