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

uses crt;

var
  m: real;
  e: byte;

begin
  clrscr;
  writeln('в каких единицах осуществляется ввод массы ?');
  writeln;
  writeln('1 - кг');
  writeln('2 - мг');
  writeln('3 - г');
  writeln('4 - т');
  writeln('5 - ц');
  writeln;
  write('ваш выбор: ');
  readln(e);
  write('введите массу с учётом выбранных единиц: ');
  readln(m);
  if (e >= 1) and (e <= 5) then
  begin
    case e of
      2:
        m := m / 1000000;
      3:
        m := m / 1000;
      4:
        m := m * 1000;
      5:
        m := m * 100;
    end;
    writeln('масса в кг = ', m);
  end
  else
    writeln('ошибка ввода');

end.