uses crt;
var n : longint; s : string;

k, i, dem, f, b, c : byte;
begin
clrscr;
dem := 0;
write('nhap so n : '); readln(n);
if (n >= 1) and (n <= 100000000) then 
begin
str(n:9, s);
k := length(s);
for i := 1 to k do
begin
val(s[i], b, f);
c := b;
if c <> 0 then 
if n mod c <> 0 then dem := dem + 1;
end;
if dem = 0 then writeln(n,' la so cong bang') 
else write(n,' khong la so cong bang') ;
end;
readln
end.

uses crt;
var i,n:longint; s:string; kt:boolean;
begin
clrscr;
   write('Nhap n: ');readln(n);
   while not((1<=n)and(n<=100000000)) do
      begin
         write('Nhap lai n: ');readln(n);
      end;
   str(n,s);
   kt:=true;
   for i:=1 to length(s) do
      if (ord(s[i])-48<>0)and(n mod (ord(s[i])-48)<>0) then kt:=false;
   if kt then
      writeln('N la so cong bang')
   else
      writeln('N khong la so cong bang');
readln
end.