Uses crt;
Var a,b,c:real;
Begin
     clrscr;
     write('nhap do dai canh thu nhat :');
     readln(a);
     write('nhap do dai cannh thu hai :');
     readln(b);
     write('nhap do dai canh thu ba :');
     readln(c);
     if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
         writeln('Day la tam giac vuong')
      else
          writeln('Day la tam giac thuong');
      readln;
End.