Найти все трехзначные числа,которые в своей записи содержат цифру n(РЕШИТЕ ЧЕРЕЗ ЦИКЛ С ПАРАМЕТРОМ)ПОЖАЛУЙСТА

РешениеPascal1 2 3 4 5 6 7 8 9 var    i,n: integer; begin      write('n = ');      readln(n);      for i:=100 to 999 do          if (i mod n = 0) then             write(i, ' '); end.