Помогите 1 задание пожалуйста плиииис ребяткиии

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var m,i,j,k: integer; begin write('m='); readln(m); for i:=2 to m do  begin   if(i>2)and(i mod 2=0) then continue;//пропускаем все четные, больше 2   //проверяем на простоту нечетные   j:=3;   k:=0;   while (j*j<=i)and(k=0) do   if i mod j=0 then k:=1//если делится, не простое   else inc(j,2); //иначе проверим следующее   if k=0 then write(i,' ');//если простое, выводим  end; end.