Nguyễn Trung Dũng

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

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

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

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

var a,b,c,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 a,b,c,d,res:longint;
begin
       readln(a,b,c,d);
       res:=0;
       if (res<a) and (a mod 2=0)then
               res:=a;
       if (res<b) and (b mod 2=0) then
               res:=b;
       if (res<c) and (c mod 2=0) then
               res:=c;
       if (res<d) and (d mod 2=0) then
               res:=d;
       if (res mod 2=0) then
               write(res)
       else
               write('NONE');
end.

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

var a,b,c,smax,ab,bc,ac:longint;
begin
        readln(a,b,c);
        ab:=a+b;
        bc:=b+c;
        ac:=a+c;
        smax:=ab;
        if smax<bc then
                smax:=bc;
        if smax<ac then
                smax:=ac;
        write(smax);
end.

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

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

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

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

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

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

var x,y,a,b,n: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
        write(x,#32,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*n+200*y+100*z=n) then
        write(x,#32,y,#32,z);
end.

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

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

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

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

var n,i:longint;
begin
        readln(n);
        for i:=1 to n do
        if sqrt(i)=trunc(sqrt(i)) then
        write(i);
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 x,y,a,b,n,p:longint;
begin
        readln(n);
        p:=0;
        for x:=0 to n div a do
        for y:=0 to n div b do
        if (a*x+b*y=n) then
        begin
        write(a,#32,b);
        p:=1;
        end;
        if p=0 then
        write(+1);
end.

var a,b,c,n:longint;
begin
        readln(n);
        for a:=0 to n div 500 do
        for b:=0 to n div 200 do
        for c:=0 to n div 100 do
        n:=500*a +200 *b+100*c;
        write(a,#32,b,#32,c);
end.

uses math;
var a,b,c,n,rmin,rmax:longint;
begin
        readln(n);
        rmin:=n;
        rmax:=0;
        for a:=0 to n div 500 do
        for b:=0 to n div 200 do
        for c:=0 to n div 100 do
        if (500*a+200*b+100*c=n) then
        begin
        rmin:=min(rmin,a+b+c);
        rmax:=max(rmax,a+b+c);
        end;
        write(rmin,#32,rmax);
end.