Пример:

program FunctionValueCalculation;
var
x, y, z, result: Real;
begin
x := 2;
y := 3;
z := 4;
if z > 0 then
result := x * y + z
else
result := x * y - z;
writeln('Результат вычисления функции:', result:0:2);
end.

В данном примере программа вычисляет значение функции для заданных значений x, y, z. Если z > 0, то программа использует формулу x y + z, иначе использует формулу x y - z. Результат вычисления функции выводится на экран.