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

Программа: var x,y:real; begin write('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 = 4 y = -1.88894645668699 Блок-схема - в прилагаемом файле.