程序代码：

function prime_bool(x:longint):boolean;
  var
   i:longint;
  begin
   for i:=2 to trunc(sqrt(x)) do 
   if x mod i=0 then exit(false);
   exit(true);

 end;

程序代码：

#include<cstdio>
#include<cmath>
int n,m=0;
int main()
{
scanf("%d",&n);
for (int i=2;i<=floor(sqrt(n)+0.5);i++)
  if (x%i==0) 
  {
     printf("%d是素数\n",n);
     return 0;
  }
printf("%d不是素数\n",n);
return 0;
}