Nguyễn Trung Dũng

var x:longint;
        a,b,c,d,s:longint;
begin
        readln(x);
        a:=x div 50;
        x:=x mod 50;
        b:=x div 20;
        x:=x mod 20;
        c:=x div 10;
        x:=x mod 10;
        d:=x div 5;
        x:=x mod 5;
        if x>0 then
                write(-1)
        else
        begin
                s:=a+b+c+d;
                write(s);
        end;
end.

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

var m,n,p:longint;
       res:longint;
begin
       readln(m,n,p);
       res:=m+n;
       if res<(n+p) then
               res:=n+p;
       if res<(m+p) then
               res:=m+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<d*a then
                res:=d*a;
        if res<a*c then
                res:=a*c;
        if res<b*d then
                res:=b*d;
        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(x1-x3));
        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(n,'true')
        else
                write(n,'false');
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,#32,rmin);
end.

var xm,ym,xi,yi,m,i,r:longint;
        im:real;
begin
        readln(xm,ym,xi,yi,r);
        im:=sqrt(sqr(xi-xm)+sqr(yi-ym));
        if im<r then
                write(im,'nam trong hinh tron')
        else
                write(im,'nam ngoai hinh tron');
end.

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

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

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

var a,n:longint;
function tinhab (a,b:longint):longint;
var tam:longint;
begin
        if n=0 then exit(1);
        if n=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 i,n,m:longint;
begin
        readln(m,n);
        for i:= m to n do
        write(i,#32);
end.

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

var a,b,s,i: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 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,s,dem:longint;
begin
        readln(n);
        dem:=0;
        for i:=1 to n do
        if (n mod i=0) then
                dem:=dem+1;
        if dem=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) then
        write(i,#32);
end.

vvar 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,n,s: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 s,i,n:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
        s:=s+(2*i-1);
        write(s);
end.

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

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