Составить на языке pascal программу вычисления значения функции: d = y⁵ - x¹² + cos⁹ v⁷ огромное , здоровья, счастья и любви))

Вот) Тут используется формула

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.