Составить программу которая находит наименьшее трехзначное число имеющее 10 делителей язык паскаль

program div_10;

var m, k: integer;

begin

k: = 0; m: = 99;

//k - счетчик делителей,

//m - начальное число (в цикле сразу станет трехзначным).

while k 10 do

begin

m: = m + 1;

k: = 0;

for i: integer: = 1 to m do if m mod i = 0 then k: = k + 1;

end;

writeln (m)

end.