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

Question

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

---

Answer 1

а)
var
x:Real;
begin
write('x =');
Readln(x);
if (x >= 0) then
Writeln('y=', 2*x)
else
Writeln('y=', x/2);
end.


б)
var
x:Real;
begin
write('x =');
Readln(x);
if (x > 5) then
Writeln('y=', x + 3)
else
Writeln('y=', x - 3);
end.