Помогите сделать алгоритм пожалуйста!!!!!!!!!!!!!!!!!!!!!!
Блок-схема прикреплена сама программа var x:integer; y:real; begin readln(x); if (x>0)then y:=x*x*x; if (x=0)then y:=sqrt(sqr(x)); writeln(y:0:0); (можешь 0 последнюю изменить как хочешь, она определяет кол-во знаков после запятой) end.