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.