7. 对于一个100以内的素数（也称质数），把它的十位数字与个位数字对换之后，若得到的新整数仍为素数，则称原来的那个素数为“绝对素数”。例如11、13对换后为11、31仍是素数，它们就是绝对素数。要求编程求出100以内所有“绝对素数”。

program exExhaustive7_1;
var
     gw, sw, i, num, sq : integer;
begin
     sw := 1;
     while sw <= 9 do
     begin
           gw := 1;
           while gw <= sw do
           begin
                num := sw*10+gw;
                sq := trunc(sqrt(num));
                for i := 3 to sq do
                    if (num mod i = 0) or ((gw*10+sw) mod i = 0) then break;
                if (num mod i <> 0) and ((gw*10+sw) mod i <> 0) then
                   writeln(num, ' ', gw*10+sw);
                gw := gw+2;
           end;
           sw := sw+2;
     end;
     readln;
end.