bonus cho bạn tam giác thường và tam giác cân
chúc bạn học tốt

uses crt;
var a, b, c, Cv, S, p:integer;
begin
clrscr;
write('Canh thu nhat a= ');readln(a);
write('Canh thu hai b= ');readln(b);
write('Canh thu ba c= ');readln(c);
If (a+b<=c) or (b+c<=a) or (c+a<=b) then writeln('Day khong phai 3 canh tam giac') else
   begin
   writeln('Day la 3 canh tam giac');
   if (a=b) and (b=c) then writeln('Day la tam giac deu') else
      begin
      if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then writeln('Day la tam giac vuong') else
         begin
         if (a=b) or (b=c) or (c=a) then writeln('Day la tam giac can')
         else writeln('Day la tam giac thuong')
         end;
      end;
   end;
readln;
end.