varx, y: real;result: real;
begin// ввод значений переменныхwrite('Введите значение x: ');readln(x);
write('Введите значение y: ');readln(y);
// вычисление выраженияresult := (1 + 1 / (x x)) - 12 x x y;
// вывод результатаwriteln('Результат выражения (1 + 1 / x^2) - 12 x^2 y при x = ', x, ' и y = ', y, ' равен ', result:0:2);end.
var
x, y: real;
result: real;
begin
// ввод значений переменных
write('Введите значение x: ');
readln(x);
write('Введите значение y: ');
readln(y);
// вычисление выражения
result := (1 + 1 / (x x)) - 12 x x y;
// вывод результата
writeln('Результат выражения (1 + 1 / x^2) - 12 x^2 y при x = ', x, ' и y = ', y, ' равен ', result:0:2);
end.