nhập 3 cạnh a, b, c của một tam giác viết câu lệnh rẽ nhánh đưa ra thông báo là tam giác trên là tam giác đều tam giác cân hay tam giác vuông

- Viết câu lệnh rẽ nhánh :

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');

Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If (a=b) and (b=c) then Write('Tam giac deu')
        Else If (a+b>c) and (a+c>b) and (b+c>a) and (a=b) or (b=c) or (a=c) then Write('Tam giac can')
        Else If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then Write('Tam giac vuong'); 
        Readln
End.