LEXDIV PASCAL

var a,b,k:longint;

procedure nhap;
var i,j:longint;
begin
    read(a, b, k);
end;

procedure xuli;
vari:longint;
   si,min:string;

begin
    min:='a';
    for i:=a to b do
           if i mod k = 0 then
          begin
              str(i,si);        //tao xau si tu so i
              if si<min then min:=si;
          end;
    write(min);
end;

begin
    assign(input,'lexdiv.inp');reset(input);
    assign(output,'lexdiv.out');rewrite(output);
    nhap;
    xuli;
    close(input);close(output);
end.