Программа на языке Pascal для расчета выражений:

program CalculateExpressions;
var
x: Real;
function Expression1(x: Real): Real;
begin
Expression1 := (x + 4) / (x - 2);
end;
function Expression2(x: Real): Real;
begin
Expression2 := sqrt(x * x - 4 * x - 4) / (x - 8);
end;
begin
write('Введите значение x: ');
readln(x);
writeln('Значение выражения (x + 4) / (x - 2): ', Expression1(x));
writeln('Значение выражения sqrt(x^2 - 4x - 4) / (x - 8): ', Expression2(x));
end.

Пользователю будет предложено ввести значение переменной x, после чего программа вычислит значения двух заданных математических выражений и выведет их на экран.