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

const
  a: array [1 .. 5] of string = ('dm', 'km', 'm', 'mm', 'cm');

var
  L: real;
  i: byte;

begin
  i := 0;
  repeat
    write('Nomer ed. izm=');
    readln(i);
  until (i in [1 .. 5]);
  write('Dlina (', a[i], ')=');
  readln(L);
  case i of
    1:
      L := L / 10;
    2:
      L := L * 1000;
    3:
      L := L;
    4:
      L := L / 1000;
    5:
      L := L / 100;
  end;
  writeln('Dlina v metrah=', L:5:2);
  readln;

end.

var
  l: real;
  k: integer;

begin
  write('izmerenie=');
  read(k); { номер единицы измерения }
  write('dlina=');
  read(l); { длина отрезка }
  case k of
    1:
      write(l / 10:5:3, ' m');
    2:
      write(l * 1000:5:3, ' m');
    3:
      write(l:5:3, ' m');
    4:
      write(l / 1000:5:3, ' m');
    5:
      write(l / 100:5:3, ' m');
  end;
  readln;

end.