Почему в цикл организован так: for i: =2 to n div 2 do ? пояснить program prostoe; var n,i,k: longint; p: boolean; begin write('n='); readln(n); if n=0 then writeln(' это ноль! ') else begin p: =true; for i: =2 to n div 2 do if n mod i=0 then begin p: =false; break; end; write(n,'-число '); if p then writeln('простое') else writeln ('не простое'); end; end.