Trần Quang Đạt ????

Var x1,x2,y1,y2: longint;
    d:real;
Begin
        Assign(Input,'BAI1.INP');
        Assign(Output,'BAI1.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(x1);
        Readln(y1);
        Readln(x2);
        Readln(y2);
        d:=Sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
        Write(d:0:2);
        Close(Input);
        Close(Output);
End.

Var a,b,res,res2,s:longint;
Begin
        Assign(Input,'BAI2.INP');
        Assign(Output,'BAI2.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(a,b);
        Res:=2*a+2*(b-2);
        S:=a*b;
        Res2:=s-res;
        Write(Res,#32,Res2);
        Close(Input);
        Close(Output);
End.

Uses math;
Var n: longint;
    res:real;
Begin
        Assign(Input,'BAI3.INP');
        Assign(Output,'BAI3.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(n);
        Res:=(n*(n+1)*(2*n+1)) div 6;
        Write(res:0:2);
        Close(Input);
        Close(Output);
End.

Uses math;
Var a,b,c,u,v,i: longint;
Begin
        Assign(Input,'BAI4.INP');
        Assign(Output,'BAI4.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(a,b,c);
        u:=a+b; v:=a+c; i:=b+c;
        Write(max(max(u,v),i));
        Close(Input);
        Close(Output);
End.

Var n,i: longint;
Begin
        Assign(Input,'BAI5.INP');
        Assign(Output,'BAI5.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(n);
        I:=2;
        While n>1 do
                Begin
                        If n mod i=0 then
                                Begin
                                        Write(i,#32);
                                        N:=n div i;
                                End
                        Else i:=i+1;
                End;
        Close(Input);
        Close(Output);
End.

Var a:array[-7..100007] of longint;
    i,n,res,dem: longint;
    Tbc: real;
Begin
        Assign(Input,'BAI6.INP');
        Assign(Output,'BAI6.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(n);
        res:=0; dem:=0;
        For i:=1 to n do read(a[i]);
                For i:=1 to n do res:=res+a[i];
        Tbc:=res/n;
        For i:=1 to n do
                If a[i]>=Tbc then inc(dem);
        Write(dem);
        CLose(Input);
        Close(Output);
End.

Var i,n: longint;
Begin
        Assign(Input,'D3B1.INP');
        Assign(Output,'D3B1.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(n);
        If n<0 then Write('FALSE');
        If sqr(trunc(sqrt(n)))=n then write('TRUE')
        Else write('FALSE');
        Close(Input);
        Close(Output);
End.

Uses math;
Var a,b,c: longint;
Begin
        Assign(Input,'D3B2.INP');
        Assign(Output,'D3B2.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(a,b,c);
        Write(Max(a,Max(b,c)));
        Close(Input);
        Close(Output);
End.

Var a,b: longint;
Begin
        Assign(Input,'D3B3.INP');
        Assign(Output,'D3B3.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(a,b);
        If a>b then write(a*10+b)
        Else write(b*10+a);
        Close(Input);
        Close(Output);
End.

Var a,b,a1,b1: longint;
Begin
        Assign(Input,'D3B4.INP');
        Assign(Output,'D3B4.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(a,b);
        a1:=a; b1:=b;
        If a mod 2 = 0 then
                Begin
                        a:=a div 2;
                        b:=b*2;
                End
        Else a:=a+1;
        If a mod 2 <> 0 then
                Begin
                        inc(a);
                        b:=b1+a1;
                End;
        Write(a,#32,b);
        Close(Input);
        Close(Output);
End.

Uses math;
Var x,tram,chuc,dvi,res,tam: longint;
Begin
        Assign(Input,'D3B5.INP');
        Assign(Output,'D3B5.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(x);
        Tram:= x div 100;
        Tam:= x div 10;
        Chuc:= Tam mod 10;
        Dvi:= x mod 10;
        Res:=Max(Tram,Max(Chuc,Dvi));
        Write(res);
        Close(Input);
        Close(Output);
End.

Var a,b: longint;
Function Ucln(u,v: longint): longint;
Var r: longint;
Begin
        While v>0 do
                Begin
                        r:=u mod v;
                        u:=v;
                        v:=r;
                End;
        Exit(u);
End;
Begin
        Assign(Input,'CBD1B2.INP');
        Assign(Output,'CBD1B2.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(a,b);
        Write(Ucln(a,b));
        Close(Input);
        Close(Output);
End.

Var n,i,k: longint;
    s: real;
Begin
        Assign(Input,'CBD1B1.INP');
        Assign(Output,'CBD1B1.OUT');
        Reset(Input);
        Rewrite(Output);
        n:=1;
        While 1/n>=0.001 do
                Begin
                        Inc(n);
                        s:=s+1/n;
                End;
        Write(s:0:3);
        Close(Input);
        Close(Output);
End.

Var i,j,n,p: longint;
      a: array[-7..100007] of longint;
Procedure Xuli();
Var i,dem: longint;
Begin
        dem:=0;
        For i:=1 to n do
                If a[i]=0 then inc(dem)
                Else dec(dem);
        If dem=0 then
                Begin
                        p:=1;
                        For i:=1 to n do
                                Write(a[i],#32);
                                Writeln;
                End;
End;
Procedure Sinh();
Var i,j: longint;
Begin
        i:=n;
        While i>0 do
                Begin
                        i:=n;
                        While a[i]=1 do dec(i);
                        A[i]:=1;
                        For j:=i+1 to n do a[j]:=0;
                        Xuli;
                End;
End;
Begin
        Assign(Input,'DQBIT02.INP');
        Assign(Output,'DQBIT02.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(n);
        P:=0;
        Sinh;
        If p=0 then write('NONE');
        Close(Input);
        Close(Output);
End.