Знамениты два расстояния: одно в километрах, иное в футах (1фут

// PascalABC.NET

begin
   var L1 := ReadlnReal('введите расстояние в км: ');
   var L2 := ReadlnReal('введите расстояние в футах: ');
   L2 := L2 * 0.305E-3; // перевод футов в километры
   if L1 lt; L2 then
      Println('L1 меньше')
   else if L2 lt; L1 then
      Println('L2 меньше')
   else
      Println('L1 = L2')
end.