Nguyễn Huy Minh

var a,b,c: longint;
        d,x1,x2: real;
begin
        readln(a,b,c);
        d := sqr(b)-4*a*c;
        if (d<0) then
                write('phuong trinh vo nghiem');
        if (d=0) then
                begin
                x1 := -b/(2*a);
                x2 := x1;
                write('phuong trinh co nghiem kep x1=x2=', x1:0:2);
                end;
        if (d>0) then
                begin
                x1 := (-b+sqrt(d))/(2*a);
                x2 := (-b-sqrt(d))/(2*a);
                write('phuong trinh co 2 nghiem phan biet x1=', x1:0:2, ';', #32, 'x2=', x2:0:2);
                end;
end.

var a,b: longint;
        x: real;
begin
        readln(a,b);
        if (a=0) and (b=0) then
                write ('phuong trinh co vo so nghiem');
        if (a=0) and (b<>0) then
                write ('phuong trinh vo nghiem');
        if (a<>0) then
                begin
                x := -b/a;
                write ('phuong trinh co nghiem x=', x:0:2);
                end;
end.

var m,n,p,res: longint;
begin
        readln(m,n,p);
        if (m+n>m+p) and (m+n>n+p) then
                res := m+n;
        if (m+p>m+n) and (m+p>n+p) then
                res := m+p;
        if (n+p>m+n) and (n+p>m+p) then
                res := n+p;
        write(res);
end.

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

var x1,y1,x2,y2,x3,y3: longint;
        ab,bc,ac,res: 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));
        res := ab;
        if (res<bc) then
                res := bc;
        if (res<ac) then
                res := ac;
        write (res:0:2);
end.

var n: longint;
begin
        readln(n);
        if (sqrt(n)=trunc(sqrt(n))) then
                write ('true')
        else
                write('false');
end.

var x1,y1,x2,y2,x3,y3: longint;
        ab: real;
begin
        readln (x1,y1,x2,y2,x3,y3);
        ab := sqrt(sqr(x1-x2)+sqr(y1-y2));
        write(ab:0:2);
end.

var m,n,p,q,r,rmax,rmin: longint;
begin
        readln(m,n,p,q,r);
        rmax := m;
        if (rmax<n) then
                rmax := n;
        if (rmax<p) then
                rmax := p;
        if (rmax<q) then
                rmax := q;
        if (rmax<r) then
                rmax := r;
        rmin := m;
        if (rmin>n) then
                rmin := n;
        if (rmin>p) then
                rmin := p;
        if (rmin>q) then
                rmin := q;
        if (rmin>r) then
                rmin := r;
        write ('rmax=', rmax, ',', #32, 'rmin=', rmin);
end.

var a,b,c: longint;
        rmax,rmin,rmin2: longint;
begin
        readln(a,b,c);
        rmin := a;
        if (rmin>b) then
                rmin := b;
        if (rmin>c) then
                rmin := c;
        rmax := a;
        if (rmax<b) then
                rmax := b;
        if (rmax<c) then
                rmax := c;
        rmin2 := a;
                if (b>rmin2) and (b<>rmax) then
                        rmin2 := b;
                if (c>rmin2) and (c<>rmax) then
                        rmin2 := c;
        if (a=b) and (b=c) then
                write('-1')
        else
                write('rmin2=', rmin2);
end.

var n,i: longint;
        s: real;
begin
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s+(2*i-1);
        write('s=', s:0:2);
end.

var n,a,i: longint;
        p: real;
begin
        readln(n,a);
        p := 1;
        for i := 1 to n do
                p := p*a;
        write(p:0:0);
end.

var n,a: longint;
function tinhab(a,b: longint): longint;
var tam: longint;
begin
        if b=0 then exit(1);
        if b=1 then exit(a);
        tam := tinhab(a, b div 2);
        exit(tam*tam*tinhab(a, b mod 2));
end;
begin
        readln(n,a);
        write(tinhab(a,n));
end.

var n,i,a: longint;
begin
        readln(n);
        a := 0;
        for i := 1 to n do
                if i mod 2 = 0 then a := a+1;
        write(a);
end.

var i,a,b: longint;
begin
        readln(a,b);
        for i := a to b do
                if (i mod 3 = 0) and (i mod 5 <> 0) then
                        write(i,#32)
end.

var i,a,b,s: longint;
begin
        readln(a,b);
        s := 0;
        for i := a to b do
                if (i mod 2 = 0) then
                        s := s+i;
        write(s);
end.

var n,i: longint;
begin
        readln(n);
        for i := 1 to n do
                if (sqrt(i)=trunc(sqrt(i))) then
                        write(i,#32);
end.

var i,n: longint;
begin
        readln(n);
        for i := 1 to n do
                if (n mod i = 0) then
                        write (i,#32);
end.

var n,i,u: longint;
begin
        readln(n);
        u := 0;
        for i := 1 to n do
                if (n mod i = 0) then
                        u := u+1;
                if (u=2) then
                        write('true')
                else
                        write('false')
end.

var i,n: longint;
begin
        readln(n);
        for i := 1 to n do
                if (n mod i = 0) and (i mod 2 = 0) then
                        write (i,#32);
end.

var i,n: longint;
begin
        readln(n);
        for i := 1 to n do
                if (n mod i = 0) then
                        if (i mod 2 = 0) then
                                write('chan')
                        else
                                write('le');
end.

var i,s,n: longint;
begin
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s+i;
        write(s);
end.

var s,i,n: longint;
begin
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s+sqr(i);
        write(s);
end.

var n,i: longint;
        s: real;
begin
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s+(2*i-1);
        write('s=', s:0:2);
end.

var i,n: longint;
        s: real;
begin
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s + sqr(i)*i;
        write(s:0:2);
end.

var i,n: longint;
        s: real;
begin
        readln(n);
        s := 0;
        for i := 1 to n do
                s := s + sqr(i)*sqr(i)*i;
        write(s:0:2);
end.