đỗ hoàng phúc

var
   a,b,c,d: longint;
   s,p : real;
begin
   assign(input, 'no1.inp'); reset(input);
   assign(output,'no1.out'); rewrite(output);

      read(a,b,c,d);
         s:=(sqr(a)+sqr(b))/(c+d);
         p:=(sqr(a)*a+b)/((c/d)+(1/(a-b)));
      write(s:0:2,#32,p:0:2);

   close(input);close(output)
end.

var
   a,b,c: longint;
   p,d : real;
   x1,x2 : real;
begin
   readln(a,b,c);
      p := sqr(b)- 4*a*c;
   if p >= 0 then
      begin
         d := sqrt(p);
         x1:= (-b+d)/2*a;
         x2:= (-b-d)/2*a;
         writeln(d,#32,x1:0:2,#32,x2:0:2);
      end;
end.

uses
   math;
var
   n,n1,n2 : longint;
begin
   readln(n);
      n1 := n mod 10;
      n2 := n div 10;
   writeln(max(n1,n2));
end.

var
   n,s : real;
begin
   assign(input, 'SPECIAL.INP'); reset(input);
   assign(output, 'SPECIAL.OUT'); rewrite(output);

   readln(n);
      s := (sqr(n)+ 2*n) / (sqr(n) + 2*n + 1);
   writeln(s :0:3);

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

var
   n: Integer;
   res : longint;
function tsc (u : Longint) : longint;
var
   res : longint;
begin
   res := 1;
   while u > 0 do
   begin
       res := res * (u mod 10);
       u := u div 10;
    end;
   exit(res);
end;
begin
   readln(n);
   res := tsc(n);
   writeln(res);
end.

var
   n,i: Integer;
   res,a,b,c : Byte;
begin
   readln(n);
   i := 1;
   a := n mod 10;
   b := (n div 10) mod 10;
   c := n div 100;
   res := high(Integer);
      if (a mod 2 = 0) and (res > a) then res := a;
      if (b mod 2 = 0) and (res > b) then res := b;
      if (c mod 2 = 0) and (res > c) then res := c;   
      if res = 0 then
         writeln('none')
      else
         writeln(res)
end.

var dai,x0,x1,y0,y1,r:real;
begin
        readln(x0,x1,y0,y1,r);
        dai:=sqrt(sqr(x0-x1)+sqr(y0-y1));
        if dai<=r then
                writeln(true)
        else writeln(false);
end.

uses math;
var
   a,b : Integer;
begin
   readln(a,b);
   write(max(a,b),min(a,b));
end.

var                                             
        a,b : longint;
function ucln (l,r : longint) : longint;
begin 
        while l <> r do 
                if l > r then l := l-r   
                else
                        r := r-l;
        exit(l);
end;
begin
        readln(a,b);
        writeln(ucln(a,b));
end.