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 }
