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

Программа:
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

Блок-схема - в прилагаемом файле.