1 задача, срочно, даю 50 баллов

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программа не работает, обновите версию!

begin

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

 var a := 1 + 2 * x * x * y ** 3 / (z - 10);

 var b := (Sqrt(x * x + 4) - 3) / y ** 3 + 3 * x * y;

 Print(a, b)

end.