[<<D>>]

Не очень понял в что нужно сделать...
Если просто нужно преобразовать формулу в код delphi то вот:

Код:

...
var x,y:real;
begin
y:=sin(5*x)*sin(x)+cos(5*x)*cos(3*x);
...