将自然数1--9这九个数分成三组，将每组的三个数字拼成三位数，每个数字不能重复，且每个三位数都是完全平方数。请找出这样的三个三位数。

program p1;
var a:array[1..3]of integer;
    i,j,k,x:integer;
function yes:boolean;
var i:integer;
    d:set of 0..9;
begin
 d:=[];
 for i:=1 to 3 do
  d:=d+[a[i] div 100,(a[i] mod 100) div 10,a[i] mod 10];
  yes:=true;
  for i:=1 to 9 do
   if not(i in d) then yes:=false;
end;
begin
  for i:=11 to 29 do
   begin
    a[1]:=i*i;
    for j:=i+1 to 30 do
     begin
      a[2]:=j*j;
      for k:=j+1 to 31 do
           begin
           a[3]:=k*k;
      if yes then
             for x:=1 to 3 do writeln(x:8,':',a[x]:8);
      end;
     end;
    end;
end.