Срочно, плиз помогите!Составьте блок-схему и программу на языке паскаль для вычисления значений функции

var x, y: real;beginreadln(x);if x < 0 then y := Abs(sin(x));if x > 3 then y := 1 / 2 + x * x * x;if (x >= 0) and (x <= 3) then y := x / (x + 3);write('y(', x, ') = ', (y):0:3)end.