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

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;