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<span>.