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

program formula; var x,y,xln,yy,d:real; begin while true do begin write('x y > '); readln(x,y); yy:=y*y; if (x+y)<0 then writeln('Корень квадратный из отрицательного числа!') else begin xln:=abs(x+ln(1+yy)); if xln=0 then writeln('Ноль в знаменателе!') else begin d:=(sin(x*x*x) + yy)/xln+sqrt(x+y); writeln(d) end end end end.