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

var x,y,f,z:real;beginwrite('x='); readln(x);write('y='); readln(y);if x*y<1/2 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.Блок-схема - в прилагаемом файле.