数值测算程序可以根据具体需求编写，以下是一个简单的示例，用于计算两点之间的欧几里得距离：
```pascal
program DistanceCalculator;
uses
SysUtils;
type
TVector = array[1..2] of Double;
function CalculateDistance(const A, B: TVector): Double;
var
Sum: Double;
T: Double;
J: Integer;
begin
Sum := 0.0;
for J := 1 to 2 do
begin
T := A[J] - B[J];
Sum := Sum + T * T;
end;
Result := Sqrt(Sum);
end;
var
A, B: TVector;
Distance: Double;
begin
Write('Enter the coordinates of point A (x1 y1): ');
ReadLn(A, A);
Write('Enter the coordinates of point B (x2 y2): ');
ReadLn(B, B);
Distance := CalculateDistance(A, B);
WriteLn('The distance between point A and point B is: ', Distance:0:6);
ReadLn;
end.
```
这个程序首先定义了一个二维数组`TVector`来存储点的坐标，然后定义了一个函数`CalculateDistance`来计算两点之间的距离。在主程序中，程序提示用户输入两个点的坐标，并调用`CalculateDistance`函数计算距离，最后输出结果。
如果您需要计算其他数值，比如数值的约数、满足特定不等式的最大值、统计正负零的个数等，可以根据具体需求编写相应的函数和逻辑。数值测算程序的编写需要根据实际应用场景和计算需求来确定程序的结构和功能。
