program sanjiao;
var x1,x2,x3:real;
procedure max(var mx,n1,n2:real);{这里的数传递的是变量的地址，直接对变量量进行操作}
  var x:real;
  begin
    if n1>mx then
    begin
      x:=mx;
      mx:=n1;
      n1:=x;
    end;
    if n2>mx then
    begin
      x:=mx;
      mx:=n2;
      n2:=x;
  end;{最大值被保存在mx里}
begin
  readln(x1,x2,x3);
  max(x1,x2,x3);
  if sqr(x1)=sqr(x2)+sqr(x3) then writeln('True')
  else writeln('False');
  readln
end.

勾股定理