Đinh Tuấn Minh

day2cau1: var
    e,f,n,a,b,c,d,s:longint;
    x,y,z: longint;
    m,p,t:longint;
begin
        assign (input,'day2cau1.inp'); reset (input);
    assign (output,'day2cau1.out'); rewrite(output);
    readln(x,y,z);
    e:= x div 10;
        f:= x mod 10;
        b:= y mod 10;
        d:= y div 10;
            a:=z div 100 ;
              c:= z mod 100;
                  n:= c div 10;
                  s:= e+d+n;
                  p:= f*b*d;
                  m:= a+n+d;
                  t:= z *m;
                  writeln (s,#32,p,#32,t);
    close (input); close (output);
end.

day2cau2:
var a,b,c: longint;
    p,s:real;
begin
    assign (input,'day2cau2.inp'); reset (input);
    assign (output,'day2cau2.out'); rewrite(output);
    readln (a,b,c);
    p:= (a+b+c)/2;
    s:= sqrt(p*(p-a)*(p-b)*(p-c));
    writeln (p:5:2,#32,s:5:2);
    close (input); close (output);
    end.

day2cau3: var x1,y1,x2,y2: longint;
    d:real;
begin
    assign (input,'day2cau3.inp'); reset (input);
    assign (output,'day2cau3.out'); rewrite(output);
    readln (x1,y1,x2,y2);
d:= sqrt(sqr(x2-x1)+sqr(y2-y1));
    writeln (d:5:2);
    close (input); close (output);
    end.

day2cau4:
var x1,y1,x2,y2,x3,y3: longint;
    d1,d2,d3:real;
begin
    assign (input,'day2cau4.inp'); reset (input);
    assign (output,'day2cau4.out'); rewrite(output);
    readln (x1,y1,x2,y2,x3,y3);
    d1:= sqrt(sqr(x1-x2)+sqr(y1-y2));
    d2:= sqrt(sqr(x1-x3)+sqr(y1-y3));
    d3:= sqrt(sqr(x2-x3)+sqr(y2-y3));
    writeln (d1:0:2,#32,d2:0:2,#32,d3:0:2);
    close (input); close (output);
    end.

cau 5: var a,b,c,d: longint;
    e,f,g,p,s:real;
begin
    assign (input,'day2cau5.inp'); reset (input);
    assign (output,'day2cau5.out'); rewrite(output);
    readln (a,b,c,d);
    e:= (a+b)/(c-d);
    f:= a/(c+d);
    g:= c/(a+b);
    s:= (e+f)/(sqr(a)+sqr(b)+g);
    p:= sqr((a+b))/sqr((c)+d);
    writeln (s:0:2,#32,p:0:2);
    close (input); close (output);
    end.

day2cau6: var a,b,c: longint;
    x1,x2,d:real;
begin
    assign (input,'day2cau6.inp'); reset (input);
    assign (output,'day2cau6.out'); rewrite(output);
    readln (a,b,c);
    d:= (B*b)-(4*a*c);
    x1:= (-b+sqrt(d))/(2*a);
    x2:= (-b-sqrt(d))/(2*a);
    writeln (d:0:2,#32,x1:0:2,#32,x2:0:2);
    close (input); close (output);
    end.

var
   n: longInt;
   begin
   readln (n);
   if n mod 2 = 0 then writeln (n , #32 ,' la so chan')
   else writeln (n , #32 ,' la so le');
   end.

var n: longint;
begin
   readln (n);
   if (n mod 3 = 0) and (n mod 5 <> 0 ) then
   writeln (n , #32 ,' la so chia het cho 3') else
   writeln (n,#32,' la so khong chia het cho 3');
end.

var a,b,rmax : longint;
begin
   assign (input,'day2bai3.inp'); reset (input);
   assign (output,'day2bai3.out'); rewrite(output);
   readln (a,b);
   if a>b then rmax := a else rmax:= b;
   writeln (rmax);
   close (input); close (output);
end.

day2bai4:
var a,b,rmin : longint;
begin
   assign (input,'day2bai4.inp'); reset (input);
   assign (output,'day2bai4.out'); rewrite(output);
   readln (a,b);
   if a<b then rmin := a else rmin:= b;
   writeln (rmin);
   close (input); close (output);
end.

uses math;
var a,b,smax,d,f,c,e : longint;
begin
   assign (input,'day2bai5.inp'); reset (input);
   assign (output,'day2bai5.out'); rewrite(output);
   readln (a,b,c);
   f:= a+b;
   d:= a+ c;
   e:= b+c;
    Write(max(d,max(f,e)));
   close (input); close (output);
end.