Написать программку, которая бы по введенному номеру единицы измерения (1

program name;
uses crt;
var
l,x,result:real;
begin
write(Длина отрезка: );
readln(l);
write(Еденица измерения введеных вами данных. Где, 1 дециметр; 2 километр; 3 метр; 4 мм; 5 сантиметр). );
readln(x);
if x=1 then result:=l/10;
if x=2 then result:=l*1000;
if x=3 then result:=l;
if x=4 then result:=l/1000;
if x=5 then result:=l/100;
write(Соответствующая длина отрезка: , result, м.);
end.

Var
nbsp;nbsp;l: Real;
nbsp;nbsp;i: Byte;
BEGIN
Write(Введите значение: );
Readln(l);
Write(Введите номер измерения (1-5): );
Readln(i);
Case i of
nbsp;nbsp;1: Writeln(l:5:2,дм = ,l/10:5:2,м);
nbsp;nbsp;2: Writeln(l:5:2,км = ,l*1000:5:2,м);
nbsp;nbsp;3: Writeln(l:5:2,м = ,l:5:2,м);
nbsp;nbsp;4: Writeln(l:5:2,мм = ,l/1000:10:10,м);
nbsp;nbsp;5: Writeln(l:5:2,см = ,l/100:5:2,м);
nbsp;nbsp;Else Writeln(Неправильный ввод);
end;
Readln
END.