program bai_giai;
uses crt;
var n:longint;
    ketqua:boolean;
procedure xuly(k:longint; var kq:boolean);
var tong,dem,a:byte;
begin
    tong:=0; dem:=0;
    while k<>0 do
        begin
            dem:=dem+1;
            a:=k mod 10;
            tong:=tong+a;
            k:=k div 10;
        end;
    if tong mod dem=0 then kq:=true else kq:=false;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    xuly(n,ketqua);
    write(ketqua);
    readln;
END.

function tcs(x:longint):longint;
var y:longint;
begin
y:=0;
while x<>0 do
begin
 y := y + x mod 10;
 x := x div 10;
end;
exit(y);
end;
function scs(x:longint):longint;
var d:longint;
begin
d:=0;
while x<>0 do
begin
 x := x div 10;
 inc(d);
end;
exit(d);
end;
var n:longint;
procedure sodep;
begin
 readln(n);
if (tcs(n) mod scs(n) = 0) then writeln(n,' la so dep')
else writeln(n,' khong la so dep');
readln;
end;
begin
sodep;
end.