Напишите программу на языке паскаль к уравнению y=sqrt(x)/x^m+cos(z)

Var
m,y,z,x :real;
begin
writeln('X:=');
read(x);
writeln('z:=');
read(z);
writeln('m:=');
read(m);
y:=sqrt(x)/power(x,m)+cos(z);
write(y);
end.