很简单，找出最大数（斜边），让后用勾股定理证明一下好了：

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.

怎么那么少人啊？？？？救命！！

人少吗?不少呀~我走了两天这里就这么多贴了~~~
说明人还是挺多的呀~

根据三角形每条边斜率互不相等，可列出三角形三边的方程式。
（书上的）[em3][em3][em2]