#minh gửi code pascal nhá 
#nếu không hiểu có thể cmt cho mình nhá 
#nhớ vote cho mình 5 sao và tym , ctlhn nhá 
#code pascal 

uses crt;
var a, b, c: real;
begin
clrscr;
 writeln('Kiem Tra Tam Giac');
    write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
    if (a+b>c) and (a+c>b) and (b+c>a) then 
    begin
     writeln('Do La Ba Canh Tam Giac');
     if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then 
      writeln('Tam Giac Vuong')
     else if (a = b) or (a = c) or (b = c) then 
     begin
      if (a = b) and (b = c) then 
       writeln('Tam Giac Deu')
      else 
       writeln('Tam Giac Can');
     end
     else writeln('Tam Giac Thuong');
    end
    else write('Khong Phai Tam Giac');
    readln
end.

uses crt;

var a, b, c : real;

begin

clrscr;

write('Nhap 3 so a, b, c : '); readln(a, b, c);

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

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

if (a = b) and (b = c) then write('Tam giac deu')

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

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

then write('Tam giac vuong') else write('Tam giac thuong');

readln

end.