programProgram3;varm,n:integer; (m,N:integer):integer;vari,p:integer; :=m-1;i:=0;flag:=False;forp:=2*Ndownto(N+1)dobegini:=(i+m)modp;if(ibegintest:=0;flag:=Ture;Break;endend;ifnot(flag)thentest:=1;end;beginread(n);m:=1;Mark:=False;repeatif(test(m,n)=1)thenbeginwriteln(m);break;end;m:=m+1;untilMrak;end.输入:7输出_________
