PascalABC.NET
begin
var (x, y) := ReadReal2('Введите x и y:');
Println((1 + 1 / Sqr(x)) ** x - 12 * x * x * y)
end.
