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

đây bạn