Viết chương trình nhập vào ba cạnh của tam giac,kiem tra và đưa ra màn hình:tam giác thường,tam giác cân,tam giác đều,tứ giác

Program BTT;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap a,b,c: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then
        Begin
                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')
                Else If (a=b) or (b=c) or (c=a) then Write('Tam giac can')
                Else If (a=b) and (b=c) then Write('Tam giac deu')
                Else Write('Tam giac thuong');
        End

        Else Write('Khong phai tam giac');
        Readln
End.