нужна помощь c 11. nujno sostavit' programmu v paskale. ochen' bol'choe zaranee spasibo)   (y=3,4)
pojaluista kto mojet bistree 

var    x, y, z, a, b: real;begin    readln(x, y, z);    a := x * x * x * sqr(Tan(sqr(x + y))) + z / sqrt(x + z);    b := (y * x * x - z) / (exp(z * x) - 1);    writeln('a=', a);    writeln('b=', b);end.