Case7

[-=Дрюня=-]

Ребята, помогите пожалуйста перевести программку с паскаля на С:

Единицы массы пронумерованы следующим образом:
1 — килограмм,
2 — миллиграмм,
3 — грамм,
4 — тонна,
5 — центнер. Дан номер единицы массы (целое число в диапазоне 1–5) и масса тела в этих единицах
(вещественное число). Найти массу тела в килограммах.}
Program Case7;
Var
x:Integer;
Massa:Real;
Begin
WriteLn('Введите массу:');
ReadLn(Massa);
ReadLn(x);
Case x Of
1:WriteLn(Massa,' килограмм = ',Massa,' килограмм');
2:WriteLn(Massa,' миллиграмм = ',Massa/1000000,' килограмм');
3:WriteLn(Massa,' грамм = ',Massa/1000,' килограмм');
4:WriteLn(Massa,' тонна = ',Massa*1000,' килограмм');
5:WriteLn(Massa,' центнер = ',Massa*100,' килограмм');
End;