Program tam_giac_can;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;

Write('nhap a =');readln(a);
Write ('nhap b =');readln(b);

Write('nhap c =');readln(c);

If (a+b>c) and (b+c>a) and (a+c>b) and (a=b) or (a=c) or (b=c) then
Writeln('Tam giac tren la tam giac can')
else
Writeln('Khong phai tam giac can');
readln;
end.

Viết chương trình nhập 3 số a,b,c bất kì, kiểm tra xem tam giác này có phải tam giác vuông hay không. Nếu phải in ra đây là tam giác vuông. Ngược lại in ra không phải là tam giác vuông.

Giúp mình vs ạ