Помогите составить программу на языке Паскаль... (см. внутри)

program xyz;
var x,y,z:double;
begin
write('vvedi x=');readln(x);
write('vvedi y=');readln(y);
z:=sqrt(x)+sqr(y)-z*sin(x*y);
write('z=');writeln(z);
readln;
end.