program SNT;           { khai báo tên chương trình }

uses crt;                    { khai báo thư viện }

var i,d,j: byte;            { khai báo biến }

Begin                        { bắt đầu chương trình }

     writeln('Cac so nguyen to tu 1 den 100:');     { in ra màn hình "Cac so nguyen to tu 1 den 100:" }

     for i:=1 to 100 do           { cho biến i chạy từ 1 đến 100 }

     begin               { bắt đầu phần chương trình con }

          d:=0;           { gán d=0 }

          for j:=1 to i do         { cho biến j chạy từ 1 đến biến i }

          if i mod j=0 then d:=d+1;         { nếu i chia hết cho j thì gán d=d+1 }

          if d=2 then write(i,' ');     { nếu d=2 thì in ra màn hình các số i (tức các số nguyên tố) }

     end;         { kết thúc phần thân con }

     readln       { tạm dừng chương trình đến khi nhấn phím ENTER }

End.          { kết thúc chương trình }