Xét chương trình Pascal sau :

var n,i,j,nt : Integer;

begin

readln(n);

for i:=2 to n do

      begin

            j:=2;

            while i mod j <> 0 do j := j + 1;

            if j = i then nt := i;

      end;

      writeln (nt);

readln;

end.

Chương trình trên sẽ cho phép nhập giá trị n (n>1) rồi :

• A. 
  cho biết n có phải là số nguyên tố hay không.
• B. 
  in ra màn hình tất cả các số nguyên tố nhỏ hơn hoặc bằng n.
• C. 
  in ra màn hình số nguyên tố nhỏ hơn hoặc bằng n và gần n nhất.
• D. 
  in ra màn hình số nguyên tố lớn hơn hoặc bằng n và gần n nhất.