uses crt;

var n, i:integer;

begin

clrscr;

write('Nhap vao mot so nguyen:')

readln(n);

if n<=1 then writeln(n,' khong la so nguyen to,)

else

begin

i:=2;

while (n mod i<>0) do i:=i+1;

if i=n then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to,);

end;

readln

end.

a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16

b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?

c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông báo gì?