uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

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

begin

if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then write('tam giac vuong')

else 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 write('tam giac thuong');

end

else write('khong phai tam giac');

readln;

end.

public string CheckTriangle(decimal a, decimal b, decimal c)
{
    if (a + b > c && b + c > a && c + a > b)
    {
        decimal epsilon = 0.0001m;

        if (a == b && b == c)
        {
            return "Tam giác đều";
        }
        else if (a == b || b == c || c == a)
        {
            if (Math.Abs(a * a + b * b - c * c) <= epsilon
                || Math.Abs(b * b + c * c - a * a) <= epsilon
                || Math.Abs(c * c + a * a - b * b) <= epsilon)
            {
                return "Tam giác vuông cân";
            }
            else
            {
                return "Tam giác cân";
            }
        }
        else if (Math.Abs(a * a + b * b - c * c) <= epsilon
                || Math.Abs(b * b + c * c - a * a) <= epsilon
                || Math.Abs(c * c + a * a - b * b) <= epsilon)
        {
            return "Tam giác vuông";
        }
        else if (a * a + b * b + epsilon < c * c
            || b * b + c * c + epsilon < a * a
            || c * c + a * a + epsilon < b * b)
        {
            return "Tam giác tù";
        }
        else
        {
            return "Tam giác nhọn";
        }
    }
    else
    {
        return "Không phải tam giác";
    }

}

Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('nhap 3 canh: '); Readln(a,b,c);
        If (a+b<=c) or (a+c<=b) or (b+c<=a) then Writeln('Khong phai tam giac')
        Else If (a=b) and (b=c) then Write('Tam giac deu')
        Else If (a=b) or (a=c) or (c=b) 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.