Подскажите срочно пожалуйста с 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.