Pascal连续合数

Pascal连续合数

var
     n:longint;
     i,j,k:longint;
function zhisu(n:longint):boolean;
var
     j:longint;
     findd:boolean;
begin
     if n=1 then zhisu:=false
     else if (n=2)or(n=3) then zhisu:=true
     else begin 
          findd:=false;
          j:=1;
          repeat
               j:=j+1;
               if (n mod j)=0 then findd:=true;
          until findd or (j>trunc(sqrt(n)));
          zhisu:=not findd;
     end;  
end;
 
begin
     n:=3;
     {readln(n);}
     i:=0;
     j:=3;
     repeat
          j:=j+1;
          if not zhisu(j) then  i:=i+1 else i:=0;
     until i=n;
     for i:=1 to n do write(j-n+i:6);
end.