Пожалуйста помогите. Напишите программу в паскале. Умоляю

===== PascalABC.NET =====

begin

 var (x, y) := ReadReal2('Введите x и y:');

 Println((1 + 1 / Sqr(x)) ** x - 12 * x * x * y)

end.