составить программу для вычисления значения функции используя полную структуру ветвления. Вариант во вложении.Пожалуйста посчитайте ПОЖАЛУЙСТАА!!

Var
   x,y:real;
Begin
Write('x = ');ReadLn(x);
if x<0 then y:= Sin(x)
else if (0<=x)and(x<=3*Pi) then y:=Cos(x)-1
     else y:=Sin(x)-2;
WriteLn('y = ',y);
End.