Вывести массу данного тела в килограммах - Free Pascal

Формулировка задачи:

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

Решение задачи: «Вывести массу данного тела в килограммах»

Листинг программы

program prog;
 
var  
  m: Integer;
  x: Double;
  res: Double;
  
begin
  WriteLn('Выберите единицу измерения');
  WriteLn('1 — килограмм');
  WriteLn('2 — миллиграмм');
  WriteLn('3 — грамм');
  WriteLn('4 — тонна');
  WriteLn('5 — центнер');
 
  repeat
    Write('-> ');
    ReadLn(m);     
  until (m >= 1) and (m <= 5);
 
  WriteLn('Введите число в указанной вами единице измерения');
  Write('-> ');
  ReadLn(x);
  
  case m of
    1: res:= x;
    2: res:= x / 1000000;
    3: res:= x / 1000;
    4: res:= x * 1000;
    5: res:= x * 100;    
  end;
 
  WriteLn('Вес в килограммах: ', res:0:10);
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Free Pascal. Программа запрашивает у пользователя единицу измерения массы (килограмм, миллиграмм, грамм, тонна, центнер) и затем число в этой единице измерения. Затем программа проверяет, какое именно число введено пользователем и переводит его в нужную единицу измерения (килограммы). Результат выводится на экран.