{

Welcome to GDB Online.
GDB online is an online compiler and debugger tool for C, C++, Python, Java, PHP, Ruby, Perl,
C#, VB, Swift, Pascal, Fortran, Haskell, Objective-C, Assembly, HTML, CSS, JS, SQLite, Prolog.
Code, Compile, Run and Debug online from anywhere in world.

}
program Hello;
var
 sayi,i,toplam:integer;
begin
  toplam:=0;
  writeln ('Sayi:');
  readln(sayi);
  for i:=1 to sayi-1 do begin
    if sayi mod i=0 then
        toplam:=toplam+i;
    end;
        
if toplam > sayi then
    writeln('Zengin sayi')
    else
    writeln('Zengin sayi degil');
    
readln();
end.