孪生素数是指两个相差为2的素数，例如：3和5，5和7，11和13等。
下面的程序可输15对孪生素数，其中函F判断整数A是否为素数。

      program p(output)；
      var
      k，n：integer；
function f(a：integer)：boolean；
var
        k：integer；
        flag：boolean；
begin
         flag：= true ；
         k：=2；
         while(k〈=a div 2〉 and flag do
            if a mod k=0 then
             flag:=false
            else
                k：=k+1;
            f：=flag;
        end；
begin
n：=0；
k：=2；
repeat
if   f(k)and f(k+2) then
begin
       n：=n+1；
writeln(k，k+2)
end；
k：=k+1
until   n=15
end.