Постройте блок-схему, напишите программу функции y=(cosx*sinx)/x(в кубе)* sqrt(x)

Program zadanie;
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=((cos(x)*sin(x))/(x*x*x)*sqrt(x);
writeln('y=',y);
end.