Единицы массы пронумерованы следующим образом: 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер. Дан номер единицы массы \(целое число в диапазоне 1–5\) и масса тела в этих единицах \(вещественное число\). Найти массу тела в килограммах. Выстроить нужную последовательность элементов программы

• Var e,m: Integer;
• Begin
• readln\(e\);
• readln\(m\);
• case e of
• 1 : writeln\(m\);
• 2 : writeln\(m/100000\);
• 3 : writeln\(m/1000\);
• 4 : writeln\(m\*1000\);
• 5 : writeln\(m\*100\);
• end;
• End.