Số hoàn hảo

Program wanted;
Var S,i,n: word;
Begin
  write('nhap n=');
  readln(n);
  For i:=1 To n Do
    If n Mod i=0 Then S := S+i;
  If S=2*n Then writeln('n la so dep')
  Else writeln('n ko la so dep');
  readln
End.