Câu 1:
Cú pháp: While điều kiện do hệ lệnh;
Hoạt động:
(1) Kiểm tra điều kiện:
(2) Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và chuyển sang câu lệnh tiếp theo trong chương trình. Nếu điều kiệnĐÚNG, thực hiện câu lệnh và quay lại bước 1.
Câu 2:
program bai1;
var n,i,s:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1to n do
if n mod i=0 then s:=s+1;
if s=2 then wirte(n,' la so nguyen to')
else write('Khong phai la so nguyen to');
readln
end.