Bùi Tiến Mạnh

program lap2;
var i,n:longint;
s:real;
begin
        assign(input,'lap2.inp');reset(input);
        assign(output,'lap2.out');rewrite(output);
        readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+1/(2*i-1);
        write(s:0:3);
        close(input);close(output);
end.

program lap3;
var i,n:longint;
s:int64;
begin
assign(input,'lap3.inp');reset(input);
assign(output,'lap3.out');rewrite(output);
      readln(n);
      s:=1;
      for i:=1 to n do
        s:=s*i;
      write(s);
  close(input);close(output)
end.

program lap4;
var i,n:longint;
begin
        assign(input,'lap4.inp');reset(input);
        assign(output,'lap4.out');rewrite(output);
        readln(n);
        for i:=1 to n do
                if (i mod 2=0) and (i mod 3 <>0) then
                write(i,#32);
        close(input);close(output);
end.

program lap5;
var i,n:longint;
begin
        assign(input,'lap5.int');reset(input);
        assign(output,'lap5.out');rewrite(output);
        readln(n);
        for i:=1 to n do
                if sqrt(i)=trunc(sqrt(i)) then
        writeln(i,#32);
        close(input);close(output);
end.

program lap6;
var i,n:longint;
begin
        assign(input,'lap6.inp');reset(input);
   assign(output,'lap6.out');rewrite(output);
        readln(n);
        for i:=1 to n do
                if n mod i=0 then
        writeln(i,#32);
        close(input);close(output);

end.

program b1;
var n,i,s:longint;
begin
        assign(input,'b1.inp');reset(input);
        assign(output,'b1.out');rewrite(output);
        readln(n);
        s:=0;
        for i:=1 to n do
                if n mod i=0 then
                        inc(s);
        writeln(s);
        close(input);close(output);

end.

program b1c2;
var n,i,s:longint;
begin
        assign(input,'b1c2.inp');reset(input);
        assign(output,'b1c2.out');rewrite(output);
        readln(n);
        for i:=1 to trunc(sqrt(n)) do
                if n mod i=0 then
                        begin
                                s:=s+1;
                                if i<>n div i then
                                        s:=s+1;
                        end;
        write(s);
        close(input);close(output);
end.

program b3;
var n,i,s:longint;
begin
        readln(n);
        for i:=1 to trunc(sqrt(n)) do
                if n mod i=0 then
                        begin
                                inc(s);
                                if i<>n div i then
                                inc(s);
                        end;
                if s=2 then
                        writeln(true)
                else
                        writeln(false);
end.

program b3c2;
var n,i:longint;
function nguyento(u:longint):boolean;
var i:longint;
begin
        if (u<=1) then exit(false);
        for i:=2 to trunc(sqrt(u)) do
                if u mod i=0 then
                        exit(false);
        exit(true);
end;
begin
        readln(n);
        write(nguyento(n));
end.

program b4;
var i,a,b:longint;
function nguyento(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
        readln(a,b);
        for i:=a to b do
                if nguyento(i) then
                        write(i,#32);
end.

program bai1;
var a,b,c,d,s:real;
begin
readln(a,b,c,d);
writeln(sqrt(sqr(c-a)+sqr(d-b)):2:1);
end.

program ex2;
var a,b,c,p,S:real;
begin
        readln(a,b,c);
        p:=(a+b+c)/2;
        S:= sqrt(p*(p-a)*(p-b)*(p-c));
        writeln(s:3:6);
        writeln(p:3:6);
end.

program mang1;
var n,i:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        for i:=1 to n do
        readln(a[i]);
        for i:=1 to n do
        writeln(a[i]);
end.

program mang2;
var i,n:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        for i:=1 to n do
        readln(a[i]);
        for i:=1 to n do
                if a[i] mod 2=0 then
                        writeln(a[i]);
end.

program mang3;
var i,n:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        for i:=1 to n do
        readln(a[i]);
        for i:=1 to n do
                if sqrt(a[i])=trunc(sqrt(a[i])) then
                writeln(i,#32);
end.

program mang4;
var i,n,s:longint;
a:array[-7..100000]of longint;
begin
        read(n);
        s:=0;
        for i:=1 to n do
        read(a[i]);
        for i:=1 to n do
                if (a[i] mod 2=0) and (a[i] mod 3<>0) then
                        inc(s);
                        writeln(s,#32);
end.

program mang5;
var i,n,s:longint;
a:array[-7..100000]of longint;
begin
        read(n);
        s:=0;
        for i:=1 to n do
                read(a[i]);
                s:=(a[i]);
        for i:=1 to n do
                if s>a[i] then
                        s:=a[i];
        writeln(s);
end.

program mang6;
var i,n,s,dem:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        dem:=0;
        for i:=1 to n do
                readln(a[i]);
                s:=a[1];
        for i:=1 to n do
                if s<i then
                        s:=a[i];
        for i:=1 to n do
                if a[i]=s then
                        inc(dem);
                writeln(dem);
end.

program mang7;
var i,n,s,tb:longint;
a:array[-7..100000]of longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
                readln(a[i]);
        for i:=1 to n do
                s:=s+a[i];
                tb:=s div n;
        writeln(s,#32,tb);

end.

program mang8;
var i,n,s,d:longint;
tb:real;
a:array[-7..100000]of longint;
begin
        readln(n);
        for i:=1 to n do
                readln(a[i]);
        for i:=1 to n do
                s:=s+a[i];
                tb:=s/n;
        for i:=1 to n do
                if a[i]>=tb then
                        inc(d);
        writeln(d);

end.

program mang9;
var i,n,k,p:longint;
a:array[-7..100000]of longint;
begin
        readln(n,k);
        p:=0;
        for i:=1 to n do
                readln(a[i]);
        for i:=1 to n do
                if i=k then
                        begin
                                writeln(i);
                                inc(p);
                                break;
                        end;
        if p=0 then write(-1);
end.

program ex4;
var a,b,x,y:longint;
begin
        readln(a,b);
        y:=(a-2)*(b-2);
        x:=a*b-y;
        writeln(x,y);
end.

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

program ex6;
var s,i,n:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
        s:=s+sqr(i);
        writeln(s);
end.

var a,b,c,d,s:longint;
begin
        readln(a,b,c,d);
        s:=0;
        if (a mod 2=0) and (s<a) then
                s:=a;
        if (b mod 2=0) and (s<b) then
                s:=b;
        if (c mod 2=0) and (s<b) then
                s:=c;
        writeln(s);
end.