Программки на delphi либо c++ builder

Function y(x: real): real;
begin
    if x lt; -1 then
        y := 1 - 2 * x
    else if x lt;= 2 then
        y := 2 + x * x
    else
        y := абс(2 * x * x) + 1;
end;

function z(x, y: real): real;
begin
    z := 2 * x / (48 - y * y) + 15 * sin(x);
end;

var
    x: integer;

begin
    for x := -10 to 10 do
        writeln('x=',x, ' y=', y(x), ' z=', z(x, y(x)));
end.