Вот) Тут используется формула 
var
D, y, x, v: real;
begin
writeln('Enter x, y and v:');
readln(x, y, v);
y := exp(5*ln(y)); { y^5 }
x := exp(12*ln(x)); { x^12 }
v := exp(7*ln(v)); { v^7 }
v := exp(9*ln(cos(v))); { cos(v^7)^9 }
writeln(x, ' ', y, ' ', v);
end.
var
D, y, x, v: real;
begin
writeln('Enter x, y and v:');
readln(x, y, v);
y := exp(5*ln(y)); { y^5 }
x := exp(12*ln(x)); { x^12 }
v := exp(7*ln(v)); { v^7 }
v := exp(9*ln(cos(v))); { cos(v^7)^9 }
writeln(x, ' ', y, ' ', v);
end.