program bai_giai;

uses crt;

var n:longint;

{---HAM---}

function kt(k:longint):boolean;

var so,S,T:longint;

begin

       S:=0;  T:=1;

       while k>0 do

              begin

                     so:=k mod 10;

                     if so=0 then exit(false);

                     S:=S+so;

                     T:=T*so;

              end;

       if T mod S=0 then exit(true) else exit(false);

end;

{---CT-chinh---}

BEGIN

       clrscr;

       write('Nhap N: ');  readln(n);

       n:=n+1;

       while kt(n)=false do n:=n+1;

       writeln('So Femac nho nhat lon hon N la: ',n);

       readln;

end.

Mong bai giai nay se giup cho ban neu duoc cho minh cau tra loi hay nhat nhe

__________________

Program TimSo;

Uses crt;

Var a:array[1..1000] of integer;

n, i, j, k,h,tich,tong:integer;

       s,l:string;

BEGIN

clrscr;

Write('Nhap so N: '); Readln(n);

i:= 1;

While i <= n do

begin

      j:=n+i;

     str(j,s);

     for k:= 1 to length(s) do  val(s[k],a[k],h);

     tong:=0;

      tich:= 1;

     for k:=1 to length(s) do begin

      tong:= tong + a[k];

      tich:= tich * a[k];

     end;

    if tong = tich then

begin

        for k:= 1 to length(s) do

                if s[k] in ['0'] then begin

l:='sai';

break;

end else l:='dung';

if l = 'dung' then break;

end;

write('So fermac nho nhat lon hon n la: ', j);

 Readln;

END.