Напишите выражение кодом Pascal.?

var a,b,x,y,z,d:real;
begin
readln(x,y);
x:= x*sqrt(x);
y:= exp(ln(cos(exp(ln(y)*3)))*3);

z:=abs((x+y)/1.604);
z:=exp(ln((ln(z)/ln(10)))*2);

writeln(z);
end.

опыта в таких делах у меня не очень много да и писалось это сонной ночью но проверенно  на калькуляторе .