*Chương trình thường
program so_ngto;
uses crt;
var M,i,j,d:integer;
begin
clrscr;
write('Nhap M: '); readln(M);
for i:=2 to n do
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then d:=d+1;
if d=0 then write(i,' ');
end;
readln;
end.
*Dùng chương trình con
program so_ngto;
uses crt;
var m,i:integer;
function ktnt(k:integer):boolean;
var l:integer;
begin
ktnt:=false;
for l:=2 to trunc(sqrt(k)) do
if k mod l=0 then exit;
ktnt:=true;
end;
BEGIN
clrscr;
write('Nhap M: '); readln(m);
for i:=2 to n do
if ktnt(i) then write(i,' ');
readln;
end.
