program n4; var a,i,k,max: integer; p: boolean; begin writeln ('vvedit chislo'); readln (a); k:=0; repeat a:=a+1; p:=false; for i:=2 to a div 2 do if (a mod i = 0) then p:=true; if not p then begin max:=a; k:=k+1; writeln (max); end; until k=5; readln end.