viết chương trình nhập vào 3 giá trị số nguyên và kiểm tra 3 giá trị đó có tạo thành 3 cạnh của tam giác đều , vuông cân không

program tamgiac;

uses crt;

var a,b,c:integer;

begin

clrscr;

write (‘a=’);readln (a);

write (‘b=’); readln (b);

write (‘c=’); readln (c);

if a=b=c then write (‘a,b,c la 3 canh cua tam giac deu’);

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a) then write (‘a,b,c la 3 canh cua tam giac vuong’);

if (a=b) or (b=c) or (a=c) then write (‘a,b,c la 3 canh cua tam giac can’);

readln;

end.