Перевести километры в метры - Turbo Pascal

Формулировка задачи:

Ребят помогите с этой задачей ну очень нужно. определить по введённому номеру еденицк измерения( 1дециметр 2 километр 3 метр 4 милиметр 5 сантиметр)и длинне отрезка L выдовала соответствующие ЗНАЧЕНИЕ ДЛИННЫ отрезка в метрах.

Решение задачи: «Перевести километры в метры»

Листинг программы

var
L,b:integer;
a:real;
 
begin
WriteLn('Введиет длину отрезка');
ReadLn(l);
WriteLn('Единица измерения? 1дециметр 2 километр 3 метр 4 милиметр 5 сантиметр');
ReadLn(b);
 
case b of
1:a:=l*0.1;
2:a:=l*1000;
3:a:=l;
4:a:=l*0.001;
5:a:=l*0.01;
end;
WriteLn('Длина отрезка=',a,'м');
Read();
end.

Объяснение кода листинга программы

Вводится длина отрезка
Запрашивается единица измерения
Выполняется преобразование в зависимости от выбранной единицы измерения
- Если выбрано 1 дециметр, то значение переменной l умножается на 0.1
- Если выбрано 2 километр, то значение переменной l умножается на 1000
- Если выбрано 3 метр, то значение переменной l остается без изменений
- Если выбрано 4 милиметр, то значение переменной l умножается на 0.001
- Если выбрано 5 сантиметр, то значение переменной l умножается на 0.01
Выводится результат преобразования в метрах
Программа завершается вызовом функции Read(), который ожидает ввода пользователя.