Составить и исполнить программу вычисления значений функций: 2x^2-3x+5 если X<0, Y= 3*((кубический корень)SQR(x-1) если 0= < x = < 2, 4cos^2x если x>2 — PureBasic(Бейсик)

dim x,y
cls
input "BBEDITE X=",X
if x<0 then
y=2*x^2-3*x+5
elseif x>2 then
y=4*|!REG3XP3!>cos(x)^2
else
y=3*(x-1)^(1/3)
end if
print y
end