Единицы массы пронумерованы таким образом : 1 - килограммы, 2- миллиграмма,

var

 ed, m: Integer;

 kg: Real;

begin

   Write('Введите единицы массы (1-кг, 2-мг, 3-гр, 4-тонна, 5-центнер): ');

   Readln(ed);

   if not (ed in [1..5]) then begin

     Writeln ('Ошибка ввода номера для единицы массы!');

     Exit;

   end;

   Write('Введите массу в этих единицах: ');

   Readln(m);

   kg := 0;

   case ed of

   1: kg := m;

   2: kg := m / 1000000;

   3: kg := m / 1000;

   4: kg := m * 1000;

   5: kg := m * 100;

   end;

   WriteLn ('Масса = ' + FloatToStr(Kg) + ' кг.');

end;