Пожалуйста посчитайте срочно пожалуйста с 10 и 13. 50

PascalABC.NET


var
a, c, x: real;
Begin
readln(a, c, x);
Writeln('10) y = ', sqrt(a - c ) / power(cos(x - a*a), 4));
end.


var
n, m: real;
Begin
readln(n, m);
Writeln('13) y = ', 2*n*m / (n*n*n - 4*m) + m /(n*n + 7);
end.