Nguyễn Huy Minh

var x,y: longint;
       d,a1,b1,a2,b2,m,n,p: real;
begin
       readln (x,y);
       m := 2;
       n := -4-x;
       p := 2*y+2*x;
      d := sqr(n)-4*m*p;
       b1 := (-n+sqrt(d))/(2*m);
       a1 := 2+y/(b1-2);
       b2 := (-n-sqrt(d))/(2*m);
       a2 := 2+y/(b2-2);
       write (a1:0:2,#32,b1:0:2,#32,a2:0:2,#32,b2:0:2);
end.

var a: longint;
begin
        readln(a);
        if (a mod 2=0) then
        write (a,#32,'la so chan')
        else
        write (a,#32,'la so le');
end.

var a: longint;
        s: real;
begin
        readln(a);
        if (a mod 3=0) then
                s := 2*a+1
        else
                s := 3*a;
        write (s:0:2);
end.

var x,y: longint;
        s: real;
begin
        readln(x,y);
        if (x>0) and (y>0) then
                s := (sqr(x)+sqr(y))/(x+y)
        else
                s := abs(x+y);
        write(s:0:2);
end.

var m,n: longint;
        p: real;
begin
        readln(m,n);
        if (n>m) then
                p := sqr(n)+m+1;
        if (m=n) then
                p := sqr(m)*m+2;
        if (n<m) then
                p := sqr(m)+sqr(n);
        write(p:0:2);
end.

var m,n: longint;
        p: real;
begin
        readln(m,n);
        if (n>m) then
                p := sqr(n)+m+1
        else
              if (m=n) then
                      p := sqr(m)*m+2
              else
                      p := sqr(m)+sqr(n);
        write(p:0:2);
end.

var a,b,c: longint;
begin
        readln(a,b,c);
        if ((a+b)>c) and ((b+c)>a) and ((c+a)>b) then
                write(a,#32,b,#32,c,#32,'la ba canh tam giac')
        else
                write(a,#32,b,#32,c,#32,'khong la ba canh tam giac');
end.

var a,b: longint;
        max: real;
begin
        readln(a,b);
        if (a>b) then
                max := a
        else
                max := b;
        write(max:0:2);
end.

var a,b,rmax: longint;
begin
        readln(a,b);
        rmax := a;
        if (rmax<b) then
                rmax := b;
        write(rmax);
end.

var a,b: longint;
begin
        readln(a,b);
        if (a mod 2=0) and (b mod 2=1) then
        begin
                a := a div 2;
                b := b*2;
        end
        else
        begin
                a := a*2;
                b := b+1;
        end;
        write(a,#32,b);
end.

var m,n,p: longint;
        s: real;
begin
        readln(m,n,p);
        if (m+n>p) then
        begin
                s := sqr(m+n+p);
                m := n;
                n := p;
                p := m;
        end
        else
        begin
                s := (m+n)/p;
                m := n+p;
        end;
        write (m,#32,n,#32,p,#32,s);
end.

var a,b,c: longint;
        s: real;
begin
        readln(a,b,c);
        if (a>b) and (b>c) then
                s := (sqr(a)+sqr(b))/sqr(c)
        else
                s := (sqr(a)+sqr(b)+sqr(c))/(c+b);
        write(s);
end.

var x,y: longint;
begin
        readln(x,y);
        if (x mod 2 = 0) then
        begin
                x := x*2;
                y := y-x;
        end
        else
        begin
                x := x+1;
                y := y+2;
        end;
        write('x=',x,',',#32,'y=',y)
end.

var a,b,c: longint;
        rmin: real;
begin
        readln(a,b,c);
        rmin := a;
        if rmin>b then
                rmin := b;
        if rmin>c then
                rmin := c;
        write (rmin);
end.

var a,b,c,d,rmax: longint;
begin
        readln(a,b,c,d);
        rmax := a;
        if rmax<b then
                rmax := b;
        if rmax<c then
                rmax := c;
        if rmax<d then
                rmax := d;
        write(rmax);
end.

var a,b,c: longint;
        p,s: real;
begin
        readln(a,b,c);
        if (a+b>c) and (a+c>b) and (b+c>a) then
        begin
                p := (a+b+c)/2;
                s := sqrt(p*(p-a)*(p-b)*(p-c));
        end
        else
                write('-1');
        write(s:0:2);
end.

var x1,y1,x2,y2,x3,y3: longint;
        ab,bc,ac,p,s: real;
begin
        readln(x1,y1,x2,y2,x3,y3);
        ab := sqrt(sqr(x1-x2)+sqr(y1-y2));
        bc := sqrt(sqr(x2-x3)+sqr(y2-y3));
        ac := sqrt(sqr(x1-x3)+sqr(y1-y3));
        if (ab+bc>ac) and (ab+ac>bc) and (bc+ac>ab) then
        begin
                p := (ab+bc+ac)/2;
                s := sqrt(p*(p-ab)*(p-ac)*(p-bc));
        end
        else
                write('-1');
        write(s:0:2);
end.