uses crt; var a,b,c : integer; begin clrscr; write('Nhap bo ba so a,b,c :'); readln(a,b,c); if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then writeln('Ba so nhap la bo so Pytago') else writeln('Ba so vua nhap khong la bo so Pytago'); readln end.
