Tìm kiếm:

bạn hãy kích nút phải chuột vào biểu tượng pascal, sau đó chọn "thuộc tình", vào đó bạn chọn "màn hình", bên dưới bạn sẽ thấy chữ "toàn màn hình" hay chữ " full screen" chọn vào đó rùi chạy pascal....

thuật toán của cao_thu thì mình bít rùi nhưng kiểu đó ko bám sát định nghĩa của số nguyên tố.
Mình có cách khác nè, các bạn coi thử nha.

uses crt;
var i,a:word;
begin
clrscr;
repeat...