Решение задачи Case 7

#include <stdio.h>
 
int main(void)
{
   int n;
   float m;
   printf("N:") ;
   scanf ("%i", &n);
   printf("M:") ;
   scanf ("%f", &m);
 
   switch (n) {
   case 1:
       printf("%f\n",m) ;
       break;
   case 2:
       printf("%f\n",m/1000000) ;
       break;
   case 3:
       printf("%f\n",m/1000) ;
       break;
   case 4:
       printf("%f\n",m*1000) ;
       break;
   case 5:
       printf("%f\n",m*100) ;
       break;
   }
   return 0;
}

import random

print("1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер")
i = random.randrange(1,6)
M = random.randrange(1,10000)
print("Номер единицы массы: ", i)
print("Масса: ", M, end="")
if i == 1:
    print(" кг")
    m = M
elif i == 2:
    print(" мг")
    m = M / 1000000
elif i == 3:
    print(" г")
    m = M / 1000
elif i == 4:
    print(" т")
    m = M * 1000
elif i == 5:
    print(" ц")
    m = M * 100
print("В килограммах: ",m)
									

program Case7;
var
  N:Integer;
  m:Real;
begin
  Write('Введите номер единицы измерения массы: ');
  Readln(N);
  Write('Введите массу тела: ');
  Readln(m);
  Case N of
    1: Writeln(m);
    2: Writeln(m/1000000);
    3: Writeln(m/1000);
    4: Writeln(m*1000);
    5: Writeln(m*100);
  end;
end.