_b_e_g_i_n _c_o_m_m_e_n_t zeef van Erathostenes; _i_n_t_e_g_e_r p, m; _b_o_o_l_e_a_n _a_r_r_a_y prime [2 : 10000]; _f_o_r p:= 2, 3 _s_t_e_p 2 _u_n_t_i_l 10000 _d_o prime[p]:= _t_r_u_e ; _f_o_r p:= 2, 3 _s_t_e_p 2 _u_n_t_i_l 10 _d_o _b_e_g_i_n _i_f prime[p] _t_h_e_n _f_o_r m:= p * p _s_t_e_p p _u_n_t_i_l 10000 _d_o prime[m]:= _f_a_l_s_e _e_n_d; m:= 0; _f_o_r p:= 2, 3 _s_t_e_p 2 _u_n_t_i_l 10000 _d_o _b_e_g_i_n _i_f prime[p] _t_h_e_n _b_e_g_i_n m:= m + 1 _e_n_d _e_n_d; NLCR; PRINTTEXT(|); ABSFIXT(5,0,m) _e_n_d