Напишите программу вычисления значения выражения в паскаль:

PascalABC.NET

begin

 var t, k, m, l, x, y, n: double;

 Read(t, k, m, l, x, y, n);

 var z := Sqr((t * t - k * k) / (Sqr(Sqr(m)) - l * Sqr(Sqr(l +

   Sqrt(Abs((Sqrt(x) + y) / (n - Abs(x)) + 4));

 Println(z)

end.