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

program lab3;

uses
  crt;

label
  start;

var
  d: (kg, mg, g, t, cen);
  c: 1 .. 5;
  M: real;

begin
  ClrScr;
  writeln(' vvedite nomer massy (1-killogramm, 2-milligramm, 3-gramm, 4-tonna, 5-centner)');
  readln(c);
  writeln('vvedite massy');
  readln(M);
  case c of
    1:
      d := kg;
    2:
      d := mg;
    3:
      d := g;
    4:
      d := t;
    5:
      d := cen;
  end;
  if d = kg then
    M := M;
  if d = mg then
    M := M / 1000000;
  if d = g then
    M := M / 1000;
  if d = t then
    M := M * 1000;
  if d = cen then
    M := M * 100;
  writeln(M:2:6);
  readln;

end.