Đỗ Hoàng Phúc

uses math;
var
   i,m,n: 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, 'no15.inp');reset(input);
   assign(output, 'no15.out'); rewrite(output);
   read(n,m);
   for i := 1 to min(n ,m) do
      if (n mod i = 0) and (m mod i = 0) and (nt(i)) then
         write(i,#32)  ;
   close(input);close(output);
end.

var
   s: real;
   i: Longint;
begin
   assign(output,'no1.out');rewrite(output);
      i := 1;
      s := 0;
      while s > 0.001 do
      begin
         s := s + (1/i);
         inc(i);
      end;
      write(s:0:3);
   close(output);
end.

{cho a,b tim uoc chung lon nhat cua a,b}
uses math;
var
   res,i,a,b,p : Longint;
begin
   assign(input,'no2.inp');reset(input);
   assign(output,'no2.out');rewrite(output);
      read(a,b);
      res := 0;
      i :=1;
      p:= min(a,b);
      while (i <= p) Do
         if (a mod i = 0) and (b mod i = 0) then
            begin
                res := max(i ,res);
                inc(i);
             end
         else
            inc(i);
      write(res);
end.

var
   m : Longint;
procedure pt(a : Longint);
var
   i: Longint;
begin
   i := 2;
   while i * i <= a do
      if a mod i = 0 then
         begin
              write(i,#32);
              a := a div i;
           end
      else
         inc(i);
      if a > 1 then write(a);
end;
begin
   read(m);
   pt(m);
end.

var
   n,res : 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
   read(n);
   res := n + 1;
   while (nt(res)) = false Do
      inc(res);
   write(res);
end.

var
   i, n: Longint;
   a : array[-7..100000] of Longint;
begin
    read(n);
    for i := 1 to n do
       read(a[i]);
    for i := 1 to n do
       write(a[i], #32); 
 end.

var
   i,n: Longint;
   a : array[-7..100000] of Longint;
begin
    read(n);
    for i := 1 to n do
       read(a[i]);
    for i := 1 to n Do
       if a[i] mod 2 = 0 then write(a[i], #32);
 end.

// bai 3
var
   n ,i : Longint;
   a : array[-7..1000000] of Longint;
begin
   read(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(i,#32); 
end.

// bai 3
var
 n ,i : Longint;
 a : array[-7..1000000] of Longint;
begin
 read(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(i,#32);  
end.

var
   i,n, res : Longint;
   a : array[-7..100000] of Longint;
begin
    read(n);
    res := 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(res);
    write(res);
 end.

var
   i,n,res : Longint;
   a :array[-7..100000] of Longint;
begin
    read(n);
    for i := 1 to n do
       read(a[i]);
    res := a[1];
    for i := 1 to n do
       if res > a[i] then res := a[i];
    write(res);
 end.

var
   i,n,res,dem: Longint;
   a : array[-7..100000] of Longint;
begin
   dem := 0;
   readln(n);
   for i := 1 to n do
      read(a[i]);
   res :=  a[1];
   for i := 1 to n do
      if res < i then res := a[i];
   for i := 1 to n do
      if a[i] = res then inc(dem);
   write(dem);
end.

var
   i,n, t : Longint;
   tb : real;
   a : array[-7..100000] of Longint;
begin
   read(n);
   t := 0;
   for i := 1 to n do
      read(a[i]);
   for i := 1 to n do
      t := t + a[i];
   tb := t / n;
   write(t,#32 ,tb:0:2);
end.

var
   i,n,res : Longint;
   t,tb  : real;
   a : array[-7..100000] of Longint;
begin
   readln(n);
   t := 0;
   res := 0;
   for i := 1 to n do
      read(a[i]);
   for i := 1 to n do
      t := t + a[i];
   tb := t / n ;
   for i := 1 to n do
      if a[i] >= tb then inc(res);
   write(res);
end.

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

var
   i, n ,rmax,rmin: Longint;
   a : array[-7..100000] of Longint;
begin
    read(n);
    for i := 1 to n do
      read(a[i]);
   rmax := a[1];
   rmin := a[1];
   for i := 1 to n do
      if rmax < a[i] then rmax := a[i];
   for i := 1 to n do
      if rmin > a[i] then rmin := a[i];
   write(abs(rmax)-rmin);
end.    

var
   x1,y1,x2,y2: Longint;
   res : real;
begin
   read(x1,y1);
   read(x2,y2);
      res := sqrt(sqr(x2 - x1)- sqrt(y2 - y1));
   write(res:0:2);
end.

var
   xa,ya,xb,yb,xc,yc: Longint;
   dab,dbc,dac : real;
begin
   read(xa,ya);
   read(xb,yb);
   read(xc,yc);
      dab := sqrt(sqr(xb - xa)+sqr(yb - ya));
      dbc := sqrt(sqr(xc - xb)+sqr(yc - yb));
      dac := dab + dbc;
   writeln(dab:0:2);
   writeln(dbc:0:2);
   writeln(dac:0:2);
end.

var
   a,b,y,x : Longint;
begin
   read(a,b);
      y := (a - 2)*(b - 2);
      x := a * b - y;
   write(x,#32,y);
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 i,n,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
write(s);
end.

var
 n : Longint;

begin
 readln(n);
 write(sqr(n));
end.

var
   n: Integer;
   s: real;
begin
   readln(n);
   s := sqr((n*(n+1))/2);
   writeln(s:0:2);
end.

var
   n : Longint;
begin
   readln(n);
   writeln( n *n * (n + 1)* (n + 1)*(2*n*n+2*n-1)/ 12:0:2);
end.

var
   n: Longint;
begin
   readln(n);
   writeln((n*(n + 1)*(n + 2)) / 3 :0:2);
end.