Помогите сделать задачу номер 3 , а , б очень срочно нужно

а)var x:Real;beginwrite('x =');Readln(x);if (x >= 0) thenWriteln('y=', 2*x)elseWriteln('y=', x/2);end.б)var x:Real;beginwrite('x =');Readln(x);if (x > 5) thenWriteln('y=', x + 3)elseWriteln('y=', x - 3);end.