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

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadlnInteger;  var s:=ReadInteger;  if s mod n=0 then begin Writeln(s); Exit end;  var k:=10;  while true do begin    var s1:=s*k;    for var i:=0 to k-1 do      if (s1+i) mod n=0 then begin Writeln(s1+i); Exit end;    k*=10    endend.Пример17191904