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

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.