var x,a,b,c,d:integer;
begin
   for x:=1000 to 9999 do begin
     a:=x mod 10;
     b:=x div 10 mod 10;
     c:=x div 100 mod 10;
     d:=x div 1000;
   if x mod 11=0  then begin
    if  (a<>b)and(a<>c)and(a<>d)and(b<>c)and(b<>d)and(c<>d)and(a<10)and(b<10)and(c<10)and(d<10)then begin
     if a=b+c then begin
      if sqrt(b*10+c)=(trunc(sqrt(b*10+c))) then writeln(x);
      end;
      end;
      end;
      end;
end.

+f

2楼的做法，不太好
其实可以直接利用循环结构
FOR A：=1 TO 9 DO
        ...
        ...