判断是否为素数，若是素数则返回true，若不是素数则返回false：

  ①

function prime(x:longint):boolean;

  var

    j,y:longint;

  begin

    prime:=true;

    if x<2 then prime:=false;

    y:=trunc(sqrt(x));

    for j:=2 to y do

      if (x mod j = 0) then

        begin prime:=false; exit; end;

  end;

备注：1～100之间所有的素数：2、3、5、7、11、13、17、19、23、29、31、37、41、43、47、53、59、61、67、71、73、79、83、89、97。（共25个）