Дано натуральное число n. найти наименьшее число м (n < m < 2n) которое делится на сумму цифр числа n (без остатка). если такого числа нет, то вывести слово «нет». пример. n = 12 345, м = 12360. число 12 360 делится на число 15 — сумму цифр числа n

Var M, N, sumN: integer;
begin
  readln(N);
  M := N;
  sumN := 0;
  while (M > 0) do
  begin
    inc(sumN, M mod 10);
    M := M div 10;
  end;
  M := (N div sumN + 1) * sumN;
  if (M < 2*N) then
    writeln(M)
  else
    writeln('нет')
end.