Написать программу, которая бы по введенному номеру единицы измерения (1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр) и длине отрезка
L выдавала бы соответствующее значение длины отрезка в метрах

var  c:integer;  L,Lm:real;begin  Writeln('Укажите код единицы измерения');  Write('(1- дм, 2- км, 3- м, 4- мм, 5- см): ');  Read(c);  Write('Укажите длину в выбранных единицах: ');  Read(L);  case c of  1:Lm:=L/10;  2:Lm:=L*1000;  3:Lm:=L;  4:Lm:=L/1000;  5:Lm:=L/100  end;  Writeln('Это составляет ',Lm,'м')end.Пример работы программыУкажите код единицы измерения(1- дм, 2- км, 3- м, 4- мм, 5- см): 4Укажите длину в выбранных единицах: 126Это составляет 0.126м