Pascal! : единицы массы пронумерованы следующим образом: 1-килограмм,2-миллиграмм,3-грамм,4-тонна,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.