program ct;

uses crt;

var a,b,c:integer;

begin clrscr;

   write('Nhap vao ba so tu nhien: '); readln(a,b,c);

   if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then

      write('Day la bo so Pitago')

   else write('Day khong phai bo so Pitago');

readln;

end.

Học tốt!

uses crt;
var max,min1,min2,a,b,c:longint;
begin
clrscr;
   write('Nhap vao ba so:');readln(a,b,c);
   max:=a; min1:=b;  min2:=c;
   if b>max then begin max:=b; min1:=a;  min2:=c;end;
   if c>max then begin max:=c; min1:=a;  min2:=b;end;
   if(max*max=min1*min1+min2*min2)then
   writeln('Day la bo 3 so pytago') else
   writeln('Day khong la bo 3 so pytago');
readln
end.