Программа на Pascal:

program FunctionValue;
var
x, result: real;
begin
write('Введите значение переменной x: ');
readln(x);
if x > 0 then
begin
result := x - 12;
end
else
begin
result := x * x;
end;
writeln('Значение функции: ', result);
end.

Эта программа запрашивает значение переменной x у пользователя, затем вычисляет значение функции x-12, если x больше нуля, иначе вычисляет значение функции x^2. Полученное значение выводится на экран.