PROGRAM z_16_25;</br>
var x,d:byte;</br>
a,b,maxd,k,n:word;</br>
BEGIN
write('vvedite granizu promegytka a,b');</br>
readln(a,b);</br>
maxd:=0;</br>
for x:=a to b do
begin
k:=2;</br>
for d:=2 to x div 2 do
if x mod d=0 then k:=k+1;</br>
if k>maxd then
begin
n:=x;</br>
maxd:=x;</br>
end;</br>
end;</br>
writeln('chislo s max kolich  ',n,' delitelei   ',maxd);</br>
END.