PascalABC.NET
function y1(x: real) := x >= 0 ? 2 * x : x / 2;
function y2(x: real) := x > 5 ? x + 3 : x - 3;
begin
var x := ReadReal;
Print(y1(x), y2(x))
end.
