Помогите сделать алгоритм пожалуйста!!!!!!!!!!!!!!!!!!!!!!

блок-схема прикреплена
сама программа
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.