uses crt;
var a, b, c:integer;
begin
clrscr;
textcolor (white);
write ('nhap canh thu nhat: ');
readln (a);
write ('nhap canh thu hai: ');
readln (b);
write ('nhap canh thu ba: ');
readln (c);
if (a+b>c) and (b+c>a) and (a+c>b) then
 begin
  textcolor (green);
  if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
   begin
    writeln ('DAY LA TAM GIAC VUONG');
    readln;
   end
  else
   if (a=b) or (b=c) or (c=a) then
   begin
    writeln ('DAY LA TAM GIAC CAN');
    readln;
   end
   else
    if (a=b) and (b=c) then
    begin
     writeln ('DAY LA TAM GIAC DEU');
     readln;
     end
    else
     begin
     if (a*a=b*b+c*c) and (b=c) or (b*b=a*a+c*c) and (c=a) or (c*c=a*a+b*b) and (a=b) then
     textcolor (green);
     writeln ('DAY LA TAM GIAC VUONG CAN');
   readln;
   readln;
  end;
  end
else
 begin
  if (a+b>c) and (b+c>a) and (a+c>b) then
  writeln ('DAY LA TAM GIAC THUONG');
  begin
   textcolor (lightred);
   writeln ('BA CANH NAY KHONG THE TAO THANH MOT TAM GIAC !!! VUI LONG NHAP LAI !!!');
   readln;
  end;
  end;
end.

nếu a=b=c thì tam giác đều

nếu hai cạnh bất kì bằng nhau thì cân

nếu có góc vuông là tam giác vuông

nếu hai cạnh bất kì bằng nhau và có góc vuông thì vuông cân