Составить программу, которая бы выводила введенное пользователем нецелое число, обозначающее длину в метрах в виде целого количества метров, сантиметров, миллиметров и микрометров (при необходимости).
например: 1,234 м – это 1234 мм, 1,57 м – это 157 см, 0,00056 м – это 560 мкм

PascalABC.NET

begin

 var L := ReadReal('Длина в м:');

 if Frac(L) = 0 then

   Println(L, 'м')

 else

 begin

   L *= 100;

   if Frac(L) = 0 then

     Println(L, 'см')

   else

   begin

     L *= 10;

     if Frac(L) = 0 then

       Println(L, 'мм')

     else

     begin

       L *= 1000;

       Println(Round(L,0), 'мкм')

     end

   end

 end  

end.