Составить программу для вычисления и блок-схему! Пожалуйста! См. во вложении!

Var x,y,f,z:real;
begin
write('x='); readln(x);
write('y='); readln(y);
if x*y<1/2<br> then f:=(1+cos(y-x))/(x/y+y*y)
else f:=sin(ln(abs(x/y)));
z:=cos(f)*cos(f)*cos(f);
writeln('f=',f);
writeln('z=',z);
end.

Блок-схема - в прилагаемом файле.