Составьте программу по заданию + блок схема(по желанию)

UPD второе VARx, y : real;BEGINreadln(x);if (x < 0) or (x >= 2) then writeln('NO')else begin y:= 2*x*sqrt(x +sqrt(x)); if (y < 0) or (y > 1) then writeln('NO') else writeln(x, ' ', y, ' YES') endEND.

первое заданиеVARx, y : real;BEGINreadln(x);if x <= -1 then   y:= -1/(x*x*x)else if x <= 2 then  y:= x*x   else y:=-4;writeln(y:0:8)END.дальше еще скину