нужна помощь c 11. nujno sostavit' programmu v paskale

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.