Робот оснащён двумя отдельно управляемыми колёсами, радиус каждого из колёс робота равен 5 см. Левым колесом управляет мотор А, правым колесом управляет мотор В. Колёса напрямую подсоединены к моторам (см. схему робота направление вперед А B Схема робота Робот проехал участок прямолинейной трассы. При этом оси моторов робота повернулись на 2880°. Расстояние между центрами колёс робота равно 20 см. Масса робота равна 2 кг. При расчётах примите пx 3. Определите, какой длины был прямолинейный участок трассы. ответ дайте в сантиметрах. В ответ запишите только число.

//PascalABC.NET 3.2 сборка 1318

var
  n, m, max, k, i: integer;
  ar: array of integer;

function CountOfDel(n: integer): integer;
var
  i, k: integer;
begin
if n>0 then
begin
  for i := 1 to n do
    if n mod i = 0 then inc(k);
end
  else
  for i:= n to -1 do
    if n mod i = 0 then
 inc(k);
  CountofDel := k;
if n=0 then
  CountofDel:=0;
end;

begin
  readln(n, m);
  k := 0;
  max := 0;
  for i := n to m do
  begin
    if CountOfDel(i)=0 then
      begin
        writeln('0');
        exit;
      end;
    if CountOfDel(i) > max then
    begin
      k := 1;
      setlength(ar, k);
      ar[k - 1] := i;
      max := CountOfDel(i);
    end
    else
    if CountOfDel(i) = max then
    begin
      inc(k);
      setlength(ar, k);
      ar[k - 1] := i;
    end;
  end;
  for i := 0 to k - 1 do
    write(ar[i]:4);
end.

Пример ввода:
1 10
Пример вывода:
6 8 10