Найти все натуральные трехзначные числа, сумма цифр которых кратна заданному натуральному числу B и само число также делится на B. (программа Паскаль)

Question

Найти все натуральные трехзначные числа, сумма цифр которых кратна заданному натуральному числу B и само число также делится на B.

Answer 1

function S(i:integer):integer;
var
  r:integer;
begin
  r:=0;
  while i>0 do begin
    r:=r+i mod 10;
    i:=i div 10;
  end;
  S:=r;
end;
var
  b,i:integer;
  z:boolean;
begin
  write('B=');readln(b);
  z:=true;
  for i:=100 to 999 do
    if (i mod b=0) and (b mod S(i)=0)  then begin
      z:=false;
      write(i,' ');
    end;
  if z then writeln('Нет чисел,удовлетворяющих условию');
end.