Hà Quang Tất Đạt

uses crt ;
const
        fi = 'b1d1.inp';
        fo = 'b1d1.out';
var x1,x2,y1,y2,ab : longint;
      x,y:int64;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(x1,y1);
        readln(x2,y2);
        x:=(x2-x1)*(x2-x1);
        y:=(y2-y1)*(y2-y1);
        ab:=sqrt(x+y);
        writeln(ab);
close(input);close(output);
end.

const
        fi = 'b2d1.inp';
        fo = 'b2d1.out';
var a,b,c,p,cv : longint;
        s  : real;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(a,b,c);
        cv:=a+b+c;
        p:=(a+b+c) div 2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        writeln(cv:0:3);
        writeln(s:0:3);
close(input);close(output);
end.

uses crt ;
const
        fi = 'b3d1.inp';
        fo = 'b3d1.out';
var x1,x2,y1,y2,y3,x3 :longint;
        ab,ac,bc : real;
        x,y:int64;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(x1,y1);
        readln(x2,y2);
        readln(x3,y3);
        ab:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
        bc:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
        ac:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
        writeln(ab:0:3);
        writeln(bc:0:3);
        writeln(ac:0:3);
close(input);close(output);
end.

const
        fi = 'b4d1.inp';
        fo = 'b4d1.out';
var a,b,xanh,vang,kt : longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(a,b);
        kt:=a*b;
        vang:=(a-2)*(b-2);
        xanh:=kt-vang;
        writeln(kt);
        writeln(vang);
        writeln(xanh);
close(input);close(output);
end.

const
        fi = 'b6d1.inp';
        fo = 'b6d1.out';
var n,i,s: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        for i:=1 to n do
        begin
                s:= s+i*i;
        end;
        writeln(s);
close(input);close(output);
end.

const
        fi = 'b7d1.inp';
        fo = 'b7d1.out';
var n,i,s: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        while i <= 2*n-1 do
        begin
                s:= s+i;
                i:=i+2;
        end;
        writeln(s);
close(input);close(output);
end.

const
        fi = 'b8d1.inp';
        fo = 'b8d1.out';
var n,i,s: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        for i:=1 to n do
        begin
                s:= s+i*i*i;
                // i:=i+1;
        end;
        writeln(s);
close(input);close(output);
end.

const
        fi = 'b5d1.inp';
        fo = 'b5d1.out';
var n,i,s: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        while i <= n do
        begin
                s:= s+i;
                i:=i+1;
        end;
        writeln(s);
close(input);close(output);
end.

const
        fi = 'b9d1.inp';
        fo = 'b9d1.out';
var n,i,s: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        for i:=1 to n do
        begin
                s:= s+i*i*i*i*i;
                // i:=i+1;
        end;
        writeln(s);
close(input);close(output);
end.

const
        fi = 'b10d1.inp';
        fo = 'b10d1.out';
var n,i,s: longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        for i:=1 to n*(n+1) do
        begin
                s:= s+i*(i+1);
                // i:=i+1;
        end;
        writeln(s);
close(input);close(output);
end.

const
        fi = 'b11d1.inp';
        fo = 'b11d1.out';
var n,i: longint;
s : real;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        while i<=n do
                begin
                s:= s+ 1/(i*(i+1));
                i:=i+1;
                end;
                writeln(s:0:3);
close(input);close(output);
end.

const
        fi = 'b12d1.inp';
        fo = 'b12d1.out';
var n,i: longint;
    s  : real;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(n);
        s:=0;
        i:=1;
        while i<= n do
        begin
                s:=s+1/(i*(i+1)*(i+2));
                i:=i+1;
        end;
        writeln(s:0:3);
close(input);close(output);
end.

uses math;
const
        fi = 'btb2.inp';
        fo = 'btb2.out';
var m,n,k,i,d : longint;
function nt(u:longint) : boolean;
var j : longint;
        begin
        if u<= 1 then exit (false);
        for j:=2 to trunc(sqrt(u)) do

          if u mod j = 0 then exit(false);

        exit(true);
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(m,n,k);
        d:=0;
        for i:=1 to min(m,n) do
        if (m mod i = 0) and (n mod i = 0) then
        if i >= k then
          begin
          nt(i);
          d:=d+1;
          end;
          writeln(d);
close(input);close(output);
end.

const
        fi = 'bt2d2.inp';
        fo = 'bt2d2.out';
var m,i: longint;
function nt(u:longint) : boolean;
var j : longint;
        begin
        if u<= 1 then exit (false);
        for j:=2 to trunc(sqrt(u)) do
          if u mod j = 0 then exit(false);
        exit(true);
        end;

begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m);
        for i:=2 to (m-2) do
        begin
                if nt(i) and nt(m-i) then
                begin
                writeln(i,#32,'+',#32,m-i);
                end
        end;
close(input);close(output);
end.

uses crt;
const
        fi = 'b1d3.inp';
        fo = 'b1d3.out';
var i : longint;
    s: real;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        s:=0;
        i:=1;
        while (1/i >= 0.001) do
        begin
        s:=s + 1/i;
        i:=i+1;
        end;
        writeln(s:2:3);
close(input);close(output);
end.

uses crt;
const
        fi = 'b1d3.inp';
        fo = 'b1d3.out';
var i : longint;
    s: real;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        s:=0;
        i:=1;
        while (1/i >= 0.001) do
        begin
        s:=s + 1/i;
        i:=i+1;
        end;
        writeln(s:2:3);
close(input);close(output);
end.

uses math;
const
   fi  =  'b2d3c1.inp';
   fo  =  'b2d3c1.out';
var a,b,i : longint;
    res : longint;
begin
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
   readln(a,b);
        for i:=1 to min(a,b) do
        if (a mod i=0) and (b mod i=0) then
        res := max(res,i);
        writeln(res);
close(input);close(output);
end.

uses math;
const
   fi  =  'b2d3c2.inp';
   fo  =  'b2d3c2.out';
var a,b,i,p : longint;
    res : longint;
begin
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
   readln(a,b);
        res:=0;
        i:=1;
        p:= min(a,b);
        while i<= p do
        begin
                if (a mod i=0) and (b mod i=0) then
                res := max(res,i);
                i:=i+1;
        end;
        writeln(res);
close(input);close(output);
end.

uses math;
const
   fi  =  'b2d3c3.inp';
   fo  =  'b2d3c3.out';
var a,b : longint;
    res : longint;
begin
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
   readln(a,b);
        while not(a=b) do
        begin
                if a>b then
                a:=a-b;
                if a<b then
                b:=b-a;
        end;
        writeln(a);
close(input);close(output);
end.

ses math;
const
   fi  =  'b2d3c4.inp';
   fo  =  'b2d3c4.out';
var a,b,r : longint;

begin
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
   readln(a,b);
        while b>0 do
        begin

                r:=a mod b;
                a:=b;
                b:=r;

        end;
        writeln(a);

close(input);close(output);
end.

const
        fi = 'b3d4.inp';
        fo = 'b3d4.out';
var n,i : longint;
    a: array[-7..100000] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i:=1 to n do
        read(a[i]);
        for i:=1 to n do
        if sqrt(a[i]) = trunc(sqrt(a[i])) then
        write(a[i],#32);
close(input);close(output);
end.

[code]const
        fi = 'b2d4.inp';
        fo = 'b2d4.out';
var n,i : longint;
    a: array[1..100000] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i:=1 to n do
        read(a[i]);
        for i:=1 to n do
        if a[i] mod 2 = 0 then
        writeln(a[i]);
close(input);close(output);
end.
[/code]

[code]const
        fi = 'b2d4.inp';
        fo = 'b2d4.out';
var n,i : longint;
    a: array[1..100000] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i:=1 to n do
         read(a[i]);
        for i:=1 to n do
        if a[i] mod 2 = 0 then
        writeln(i,#32);
close(input);close(output);
end.
[/code]

const
        fi = 'b5d4.inp';
        fo = 'b5d4.out';
var n,i,res : longint;
    a: array[-7..100000] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(n);
        for i:=1 to n do
        read(a[i]);
        res:=i;
        for i:=1 to n do
        if i < res then res:=a[i];
        writeln(res);
close(input);close(output);
end.