Дано натуральное число 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.