Bùi Tiến Mạnh

var a,b,c,n,m,p,q,rmin:longint;
begin
        readln(n);
        a:=n div 100;
        b:=(n div 10) mod 10;
        c:=n mod 10;
        m:=10*b+c;
        p:=10*a+b;
        q:=10*a+c;
        rmin:=m;
        if (rmin>n) then
                rmin:=n;
        if (rmin>p) then
                rmin:=p;
        if (rmin>q) then
                rmin:=q;
        writeln(rmin);
end.

var a,b,c,n: longint;
m,p,q,r,s,t,rmax: longint;
begin
        readln(n);
        a:=n div 100;
        b:=(n div 10) mod 10;
        c:=n mod 10;
        m:=100*b+10*a+c;
        p:=100*b+10*c+a;
        q:=100*a+10*c+b;
        r:=100*a+10*b+c;
        s:=100*c+10*a+b;
        t:=100*c+10*b+a;
        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;
        if(rmax<s) then
                rmax:=s;
        if(rmax<t) then;
                rmax:=t;
writeln(rmax);
end.

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

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

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

var xm,ym,x1,x3,y1,y3: longint;
begin
        readln(x1,y1,x3,y3,xm,ym);
        if (x1<=xm) and (xm<=x3) and (y3<=ym) and (ym<=y1) then
        writeln('m trong hcn')
        else writeln('m ngoai hcn');
end.

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

var a,b,n,x,y:longint;
begin
        readln(n);
        for x:=0 to n div a do
                for y:=0 to n div b do
                        if a*x+b*y=n then
        writeln(x,y);
end.

var x,y,z,n:longint;
begin
        readln(n);
        for x:=0 to n div 500 do
                for y:=0 to n div 200 do
                        for z:=0 to n div 100 do
                                if 500*x+200*y+100*z=n then
                                        writeln(x,y,z);
end.

var n,i,s:longint;
begin
        readln(n);
        for i:=1 to trunc(sqrt(n)) do
                if n mod i=0 then
                inc(s);
        s:=s*2;
        if sqrt(n)=trunc(sqrt(n)) then
                dec(s);
writeln(s);
end.

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

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

var n,i:longint;
s:boolean;
begin
        readln(n);
        s:=true;
        if n<1 then s:=false;
        for i:=2 to trunc(sqrt(n)) do
                if n mod i=0 then s:=false;
                if s=true then writeln(true)
                else
                writeln(false);
end.

var a,b,i,s:longint;
begin
        readln(a,b);
        s:=1;
        if a<b then
                begin
                        for i:=1 to a do
                                if (a mod i=0) and  (b mod i=0) then
                                        begin
                                                if s<i then s:=i;
                                        end;
                end
                else
                begin
                        for i:=1 to b do
                                if (a mod i=0) and (b mod i=0) then
                                        begin
                                                if s<i then s:=i;
                                        end;
                end;
                writeln(s);
end.

var n,i:longint;
Begin

    readln(n);
    i:=2;
    while n>1 do
    begin
        if n mod i=0 then
                begin
                        writeln(i);
                        n:=n div i
                end
    else
        i:=i+1;
        end;
end.

var n,i,s:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                readln(a[i]);
        for i:=1 to n do
        s:=s+a[i];
        writeln(s);
end.

var n,i,s:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                readln(a[i]);
        for i:=1 to n do
                if a[i] mod 2=0 then
                        s:=s+a[i];
        writeln(s);
end.

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

var a,b,c,n,m,p,q,r,s,t,rmax:longint;
begin
        readln(n);
        a:=n div 100;
        b:=(n div 10) mod 10;
        c:=n mod 10;
        m:=100*b+10*a+c;
        p:=100*b+10*c+a;
        q:=100*a+10*c+b;
        r:=100*a+10*b+c;
        s:=100*c+10*a+b;
        t:=100*c+10*b+a;
        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;
        if rmax<s then
                rmax:=s;
        if rmax<t then;
                rmax:=t;
        writeln(rmax);
end.

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

var i,n:longint;
a:array[-7..100000]of longint;
begin
    readln(n);
    for i:=1 to n do
        readln(a[i]);
    for i:=1 to n do
      writeln(a[i]);
end.

var my,mx,ix,iy,d,r: real;
begin
  readln(my,mx,ix,iy,r);
      d:=sqrt(sqr(ix-mx)+sqr(iy-my));
  if d=r then writeln('ngoai');
        if d<r then writeln('trong')
  else
  writeln('ngoai');
end.

var i,n,p:longint;
a:array[-7..100000]of longint;
begin
    readln(n);
    for i:=1 to n do
      readln(a[i]);
    p:=0;
    for i:=1 to n do
      if a[i+1]<=a[i] then inc(p)
      else
          begin
            p:=0;
            break;
          end;
    if p =0 then writeln('no')
    else
      writeln('yes');
 end. 

uses math;
var s,i,a,b,p:longint;
begin
      readln(a,b);
      s:=0;
      i:=1;
      p:=min(a,b);
      while (i<=p) Do
        if (a mod i=0) and (b mod i=0) then
            begin
                s:=max(i,s);
                inc(i);
            end
        else
            inc(i);
      writeln(s);
end.

var n,i:longint;
a:array[-7..1000000]of longint;
begin
  readln(n);
  for i:=1 to n do
      readln(a[i]);
  for i:=1 to n do
      if sqrt(a[i])=trunc(sqrt(a[i])) then
      writeln(i);
end.