Даны вещественные x, y, z. Вычислить в паскале а, если а=(sqr(x)+3*y-sqrt(z))/(y*sin(z)+exp(абс(x)))

Program zna4enie_a;
Uses CRT;
Var a, x,y,z : real;
Begin
CLRSCR;
Writeln( введите значение x= );
Readln(x);
Writeln( введите значение y = );
Readln(y);
Writeln( введите значение z = );
Readln(z);
a:=(sqr(x)+3*y-sqrt(z))/(y*sin(z)+exp(abs(x)));
writeln( значение a= , a:5:2);
repeat until keypressed;
END.