Đỗ Thái Sơn

var xm,ym,yi,xi,r,m,i:longint;
mi:real;
begin
readln(xm,ym,xi,yi,r);
mi:=sqrt(sqr(xi-xm)-sqr(yi-ym));
if mi<r then
write(m,'m nam trong hinh tron')
else
write(m,'m khong nam trong 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;
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:=0 to n do
s:=s+i*2-1;
write(s);
end.

var s,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.

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:=1/(i*(i+1));
write(s);
end.

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

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

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

var s,n,i,p,q:longint;
begin
readln(n);
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: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 a,b,c,d:longint;
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;
write(res);
end.

var m,u,q,p,r,s,n,a,b,c: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*c+b;
q:=100*a+10*b+c;
r:=100*c+10*a+b;
s:=100*c+10*b+a;
n:=m;
if n<u then
n:=u;
if n<p then
n:=p;
if n<q then
n:=q;
if n<r then
n:=r;
if n<s then
n:=s;
write(n);
end.

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

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

var m,x1,x3,y1,y3,d,xm,ym:longint;
begin
readln(xm,ym,x1,y1,x3,y3);
if (x1<=xm) and (xm<=x3) and (y3<=ym) and (ym<=y1) then
write(m,'m trong hinh chu nhat')
else
write(m,'m khong trong hinh chu nhat')
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.

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

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

var n,i: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,u:longint;
begin
readln(n);
for i:=1 to n do
if sqrt(u)=trunc(sqrt(u)) 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.