Bùi Mạnh Tân

var x1,x2,y1,y2:longint;
    d:real;
begin
        assign(input,'BAI1.inp');
        assign(output,'BAI1.out');
        reset(input);
        rewrite(output);

        readln(x1);
        readln(x2);
        readln(y1);
        readln(y2);
        d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
        write(d:0:2);

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

var a,b,shcn,xanh,vang:longint;
begin
        assign(input,'BAI2.inp');
        assign(output,'BAI2.out');
        reset(input);
        rewrite(output);

        readln(a,b);
        xanh:=2*a + 2*(b-2);
        shcn:= a * b;
        vang:= shcn - xanh;
        write(xanh,#32,vang);
        close(input);
        close(output);
end.

var n:longint;
    s:real;
begin
        assign(input,'BAI3.inp');
        assign(output,'BAI3.out');
        reset(input);
        rewrite(output);

        readln(n);
        s:=n*(n+1)*(2*n+1)/6;
        write(s:0:0);

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

uses math;
var a,b,c,smax,max1,max2,max3:longint;
begin
        assign(input,'BAI4.inp');
        assign(output,'BAI4.out');
        reset(input);
        rewrite(output);

        readln(a,b,c);
        max1:=a+b;
        max2:=a+c;
        max3:=b+c;
        write(max(max(max1,max2),max3));

        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 inc(i);
                end;

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

var n,i,s,dem:longint;
    tbc:real;
    a:array[-7..10007] of longint;
begin
        assign(input,'BAI6.inp');
        assign(output,'BAI6.out');
        reset(input);
        rewrite(output);

        readln(n);
        for i:=1 to n do
                read(a[i]);
        s:=0;
        for i:=1 to n do
                s:=s + a[i];
        tbc:=s/n;
        dem:=0;
        for i:=1 to n do
                if a[i] >= tbc then inc(dem);
        write(dem);
        close(input);
        close(output);
end.