Program Tinh;
uses crt;
var a,b,c,p: real; s: extended; ch: shortstring; 
procedure B1;
var i,n,s: integer;
begin
 repeat;
 clrscr; readln(n);
 until (3<n<10);
  s:=0;
 for i:=4 to n do if odd(i)=False then s:=s+i;
end;
procedure Tamgiac;
var h,k,t: boolean;
begin
  h:=False; k:=False; t:=False;
 if (a*a=b*b+c*c) and (c*c=b*b+a*a) and (b*b=c*c+a*a) then h:=True;
 if (a=b) or (b=c) or (c=a) then k:=True;
 if (a=b=c) then t:=True;
 if (h) and (k) then writeln('Tam giac vuong can!') else
  if (h) then writeln('Tam giac vuong!') else
   if (k) then writeln('Tam giac can!') else
     if (t) then writeln('Tam giac deu!') else writeln(Tam giac thuong!');
end;
begin
repeat
 clrscr; B1;
 clsrcr; readln(a,b,c);
 if (a+b>) and (b+c>a) and (a+c>b) then
 begin
  Tamgiac; 
   p:=(a+b+c)/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   writeln('Dien tich: ',s:0:2)
end else writeln('Khong phai do dai ba canh tam giac!');
 ch:=readkey;
until upcase(ch)=' '
end.