Очень срочно,пожалуйста(((Составить алгоритм и программу.

Программа:var x,y:real;beginwrite('x = '); readln(x);if x>=3  then y:=2*cos(x-pi/6)  else if x>0 then y:=1+sqr(sin(x))              else y:=sqrt(abs(x*x*x-1));writeln('y = ',y);end.Пример:x = 4y = -1.88894645668699Блок-схема - в прилагаемом файле.