Nguyễn Quốc Thái Sơn

var
        a,b,s:longint;
        n:longint;
begin
        readln(n);
        b:=n mod 10;
        a:=n div 10;
        s:=a+b;
        write(s);
end.

var
        a,b,c,s:longint;
        n:longint;
begin
        readln(n);
        c:=n mod 10;
        b:=(n div 10)mod 10;
        a:=n div 100;
        s:=a+b+c;
        write(s)
end.

var
        a,b,c,d,s:longint;
        n:longint;
begin
        readln(n);
        d:=n mod 10;
        c:=(n div 10)mod 10;
        b:=(n div 100)mod 10;
        a:=n div 1000;
        s:=a*b*c*d;
        write(s);
end.

var
        a,b,c,d,e,g,s,q,p:longint;
        n:longint;
begin
        readln(n);
        g:=n mod 10;
        e:=(n mod 100)div 10;
        d:=(n mod 1000)div 100;
        c:=(n mod 10000)div 1000;
        b:=(n mod 100000)div 10000;
        a:=n div 100000;
        p:=a+b+c;
        q:=d*e*g;
        s:=p+q;
        write(s);
end.

var
        a,b,c:longint;
        x:longint;
begin
        readln(x);
        a:=x div 3600;
        b:=x mod 3600;
        c:=x mod 60;
        write(a);
end.

var
        t:longint;
        a,b,c:longint;
begin
        readln(a,b,c);
        t:=a*3600+b*60+c;
        write(t);
end.

var
        a,b,c,a1,b1,c1,t0:longint;
        t:longint;
begin
        readln(a,b,c,t0);
        t:=a*3600+b*60+c+t0;
        a1:=t div 3600;
        b1:=(t mod 3600)div 60;
        c1:=(t mod 3600)mod 60;
        write(a1,#32,b1,#32,c1);
end.

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

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

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

var
        m,n:longint;
        p:longint;
begin
        readln(p);
        if n > m then
                p:=n*n+m+1
        else
        if(m = n)then
                p:=m*m*m+2
        else
        if(n < m)then
                P:=m*m+n*n;
        write(p);
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,b,c, 'la ba canh tam giac')
        else
                write(a,b,c, 'khong la ba canh tam giac');

end.

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



[code][/code]

var
        a,b,c,x:longint;
        s:longint;
begin
        readln(x);
        a:=x div 100;
        b:=(x div 10)mod 10;
        c:=x mod 10;
        x:=a*100+b*10+c;
        s:=a*a+b*b+c*c;
        write(s);
end.

var
        xm,ym,xn,yn:longint;
        dmn:real;
begin
        readln(xm,ym,xn,yn);
        dmn:=sqrt((xm-xn)*(xm-xn)+(ym-yn)*(ym-yn));
        write(dmn:0:2);
end.

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

var
        xm,ym,x1,y1,x3,y3:int64;
begin
        readln(xm,ym,x1,y1,x3,y3);
        if (x1<=xm) and (xm<=x3) and ( y3<=ym) and (Ym<=y1) then
                write('nam trong hcn')
        else
                write('nam ngoai hcn');
end.

var
        a,b,c,n:int64;
        s,p,q,res:longint;
begin
        readln(n);
        a:=n div 100;
        b:=(n div 10) mod 10;
        c:=n mod 10;
        s:=a*10+b;
        p:=b*10+c;
        q:=a*10+c;
        res:=s;
        if res>p then
                res:=p;
        if res>q then
                res:=q;
        write(res);
end.

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

[code][/code]

var
        a,b,c,n:int64;
        m,nn,p,q,i,y,u:longint;
begin
        readln(n);
        a:=n div 100;
        B:=(n div 10) mod 10;
        c:=n mod 10;
        m:=a*100+b*10+c;
        nn:=a*100+c*10+b;
        p:=b*100+a*10+c;
        q:=b*100+c*10+a;
        i:=c*100+a*10+b;
        Y:=c*100+b*10+a;
        u:=m;
        if nn>u then
                u:=nn;
        if p>u then
                u:=p;
        if q>u then
                u:=q;
        if i>u then
                u:=i;
        if y>u then
                u:=y;
        write(u);
end.

var
        a,b,c,d:longint;
        res:longint;
begin
        readln(a,b,c,d);
        res:=0;
        if (a>res)and (a mod 2 =0) then
                res:=a;
        if (b>res) and (b mod 2 =0) then
                res:=b;
        if (c>res) and (c mod 2 =0) then
                res:=c;
        if (d>res) and (d mod 2 =0) then
                res:=d;
        write(res);
end.

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

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

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