uses crt;
var a, b, c:integer;

              s:real;
begin
clrscr;
textcolor (white);
write ('nhap canh thu nhat: ');
readln (a);
write ('nhap canh thu hai: ');
readln (b);
write ('nhap canh thu ba: ');
readln (c);
if (a+b>c) and (b+c>a) and (a+c>b) then
 begin
  textcolor (green);
  if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
   begin
    writeln ('DAY LA TAM GIAC VUONG');

    s:=(a*b)/2;

    writeln ('dien tich: ',s:1:2);
    readln;
   end
  else
   if (a=b) or (b=c) or (c=a) then
   begin
    writeln ('DAY LA TAM GIAC CAN');

    readln;
   end
   else
    if (a=b) and (b=c) then
    begin
     writeln ('DAY LA TAM GIAC DEU');

     s:=a*a*(sqrt(3)/4);

     writeln ('dien tich la: ',s:1:2);
     readln;
     end
    else
     begin
     if (a*a=b*b+c*c) and (b=c) or (b*b=a*a+c*c) and (c=a) or (c*c=a*a+b*b) and (a=b) then
     textcolor (green);
     writeln ('DAY LA TAM GIAC VUONG CAN');
   readln;
   readln;
  end;
  end
else
 begin
  if (a+b>c) and (b+c>a) and (a+c>b) then
  writeln ('DAY LA TAM GIAC THUONG');
  begin
   textcolor (lightred);
   writeln ('BA CANH NAY KHONG THE TAO THANH MOT TAM GIAC !!!');
   readln;
  end;
  end;
end.

program btsydn;

uses crt;

  var a, b, c, h: real;

begin

        clrscr;

        write('Nhap a = '); readln(a);

        write('Nhap b = '); readln(b);

        write('Nhap c = '); readln(c);

        if (a>0) and (b>0) and (c>0) then

        begin

              if (a+b>c) and (a+c>b) and (b+c>a) then

              begin

                   write('a, b, c la do dai 3 canh cua 1 tam giac');

                   if (a*a+b*b=c*c) or (a*a+c*c=b*c) or (b*b+c*c=a*a) then

                   begin

                       write('Tam giac vuong');

                       write('Nhap chieu cao tuong ung: '); readln(h);

                       write('Dien tich tam giac nay la: ', a*h/2);

                   end

                   else

                   begin

                      if (a=b) and (a=c) then

                      begin

                         write('Tam giac deu');

                         write('Dien tich tam giac nay la: ', a*a*((sqrt(3))/4));

                      end

                      else

                      begin

                         if (a=b) or (a=c) or (b=c) then write('Tam giac can') else

                               write('Tam giac thuong');

                      end;

                   end;

              end

              else write('a, b, c khong phai do dai 3 canh cua 1 tam giac');

        end;

        readln

end.