Помогите с Паскалем !!!! Плиииз. 
 9, 11 , 12. 

  • var
      x, y, z, min, max : integer;
    begin
      read (x, y);
      if x > y then
      begin
        max := x;
        min := y;
      end
      else
      begin
        max := y;
        min := x;
      end;
      if x < 0 then z := max else z := min;
      write (z);
    end.

    var
      a, x, y, z : integer;
    begin
      read (x, y, z);
      if (x >= y) and (x >= z) then a := x
      else if (y >= x) and (y >= z) then a := y
      else a := z;
      write (a);
    end.

    var
      x, y : integer;
    begin
      read (x, y);
      write (x);
      if x <= y then write (‘ ‘, y);
    end.

  • 9.
    var
    x, y, z: byte;
    begin
    readln(x, y);
    if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
    write(z);
    end.

    11.
    var
    a, x, y, z: byte;
    begin
    readln(x, y, z);
    if (x>y) and (x>z) then a:=x else if y>z then a:=y else a:=z;
    write(a);
    end.

    12. 
    var
    a, b: byte;
    begin
    readln(a, b);
    if a>b then write(a) else write(a, ‘ ‘, b);
    end.

    Если будут ошибки, пиши в комментариях. Разберёмся.