Question

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

Answer 1

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.

Answer 2

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.

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

Answer 3

а что за оператор byte ?

Answer 4

Это не оператор, а тип данных. Если не устраивает, ставь Integer :)