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

program div_10;var m,k: integer;begink:= 0; m:= 99;//k- счетчик делителей,//m – начальное число (в цикле сразу станет трехзначным).while k <>10 dobeginm:= m + 1;k:= 0;for i: integer:= 1 to m do if m mod i = 0 then k:= k + 1;end;writeln(m)end.