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

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
  l: Real;
  i: Byte;
BEGIN
Write('Введите значение: ');
Readln(l);
Write('Введите номер измерения (1-5): ');
Readln(i);
Case i of
  1: Writeln(l:5:2,'дм = ',l/10:5:2,'м');
  2: Writeln(l:5:2,'км = ',l*1000:5:2,'м');
  3: Writeln(l:5:2,'м = ',l:5:2,'м');
  4: Writeln(l:5:2,'мм = ',l/1000:10:10,'м');
  5: Writeln(l:5:2,'см = ',l/100:5:2,'м');
  Else Writeln('Неверный ввод');
end;
Readln
END.