Expresion de algo

program tata;
uses wincrt;
var
w,x,z,y,j,d,k:real;
begin
writeln('introduza w');
readln(w);
writeln('introduza z');
readln(z);
writeln('introduza y');
readln(y);
writeln('introduza j');
readln(j);
x:=(w*w)*(z*z*z);
d:=(y*y*y*y)*(j*j);
k:=x/d;
write('el resultado es',k:2:2);
end.