Как в Delphi записать: y=lg x/(x-2)

Предыдущий
вопрос Следующий
вопрос

Для записи выражения y = log(x) / (x - 2) в Delphi используется следующий код:

program Logarithm;
uses
Math;
var
x, y: Double;
begin
writeln('Введите значение x:');
readln(x);
if x <= 2 then
writeln('Ошибка: x должен быть больше 2')
else
begin
y := log10(x) / (x - 2);
writeln('y = ', y);
end;
end.

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