Types “如何创建数据类型”；“真正的”；帕斯卡语

我的程序将毫米转换为米和厘米。这是可行的，但答案是1394900000000000000。。。如何使它变短

Program radiuss;
var 

mill : real;
metr : real;
cent : real;

Begin
Writeln('Сколько миллиметов надо перевести?');
Readln(mill);

metr := mill * 0.001;
cent := mill * 0.1;

Writeln('Метры:', metr);
Writeln('Сантиметры:', cent);

End.

---

您可以指定要在

writeln

s中打印分数部分的位数。下面是如何分别打印3位和1位数字的示例：

Writeln('Метры:', metr:0:3);
Writeln('Сантиметры:', cent:0:1);

---

您可以指定要在

writeln

s中打印分数部分的位数。下面是如何分别打印3位和1位数字的示例：

Writeln('Метры:', metr:0:3);
Writeln('Сантиметры:', cent:0:1);