Для заданного числа N требуется найти наименьшее число, которое начинается с определенной последовательности цифр S и делится на N. (написать программу)

Var n, s, a, m:longint;

begin

readln (n, s);

m:=10;

if s mod n=0 then a:=s else a:=s*10;

while a mod n0 do

if a mod m = (m-1)

then begin m:=m*10; a:=s*m; end

else a:=a+1;

writeln (a);

end.

Пример:

123 16

16113