帮我写一个博图V16程序，用ST语言写卷纸程序

一大卷纸，纸厚度大概0.08毫米，纸卷直径开始不确定，滚筒内径是100毫米，让你求出纸的总长度，纸往外拉的时候纸卷不断变小，求出剩余值的长度，写个公式

以下是ST语言写的卷纸程序：

[code]
//定义变量
VAR
    dStart : REAL; //初始纸卷直径（单位：毫米）
    dEnd : REAL := 100; //滚筒内径（单位：毫米）
    dThick : REAL := 0.08; //纸厚度（单位：毫米）
    nLength : REAL; //纸总长度（单位：毫米）
    nLeft : REAL; //剩余值的长度（单位：毫米）
END_VAR

//计算纸总长度和剩余值的长度
nLength := PI * (dStart + dEnd) / 2 * 1000 / (dThick * 1000);
nLeft := (dStart - dEnd) / 2 * PI / dThick * 1000;

//输出结果
MESSAGE(\'纸总长度为：\' + nLength + \'毫米\');
MESSAGE(\'剩余值的长度为：\' + nLeft + \'毫米\');
[/code]

公式为：

纸总长度 = π × (初始纸卷直径 + 滚筒内径) ÷ 2 × 1000 ÷ 纸厚度

剩余值的长度 = (初始纸卷直径 - 滚筒内径) ÷ 2 × π ÷ 纸厚度 × 1000

其中，π为圆周率，约等于3.1415926。