В заданном интервале целых натуральных чисел от N до M, найдите число которое имеет наибольшее число делителей. Если таких чисел несколько, то вывести нужно наименьшее из этих чисел. в паскале

Вопрос школьника по предмету Информатика

В заданном интервале целых натуральных чисел от N до M, найдите число которое имеет наибольшее число делителей. Если таких чисел несколько, то вывести нужно наименьшее из этих чисел. в паскале

Ответ учителя по предмету Информатика

var m,n,j,i,c,max,o:integer;

begin

readln(n,m);

for i:= m downto n do begin

for j:=1 to i div 2 do

if i mod j = 0 then c:=c+1;

if c>=max then begin max:=c; o:=i; end;

c:=0;

end;

writeln(o);

end.