program ct;

uses crt;

var n, t, Sum, count: longint;

begin

clrscr;

write('Nhap n = '); readln(n);

t := n;

Sum := 0; count := 0;

while n > 0 do

    begin Sum := Sum + (n mod 10); count := count + 1; n := n div 10; end;

if Sum mod count = 0 then writeln(t, ' la so dep') else writeln(t, ' khong phai la so dep');

readln;

end.

uses crt;

var N, i , K, B: LONGINT;

    j : boolean;

begin

clrscr;

write('Nhap so N = '); reaDln(N);

B := N; j := true;

while (N  > 0) and (j = true) do

    begin

        i := N div 10;

        k := N - (i * 10);

        N := N div 10;

        if (k <> 0) then

            if (B mod k <> 0) then j := false;

    end;

if j then write(B,' la so dep')

else write(B,' la so khong dep');

reaDLN

END.