вывести на экран все простые числа до заданного числа м(включительно)

program prost;vari,m,j,k: integer;beginreadln(m);for i:= 2 to m dobegin k:=  0;for j:= 2 to m-1 do if i mod j  = 0 then k:=k+1;if k<2 then write(i,' ');end;end.