Напишите программу по 2,3и4 задание.HEIP!!!

var
    a, b: integer;
    x, y, z, t: integer;

begin
    {2}
    Readln(a);
    Writeln(Sign(a) * abs(a + 3));
    
    {3}
    Readln(a, b);
    if a > b then a := b;
    Writeln(a);
    
    {4}
    Readln(x, y, z);
    if (x > y) and (y > z) then t := 5
    else t := -1;
    x := x * t;
    y := y * t;
    z := z * t;
    Writeln(x, ' ', y, ' ', z)
end.