XÉT CHƯƠNG TRÌNH PASCAL SAU

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

II. Tự luận (6 điểm) :