Câu 1:

Cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>

Biến đếm: là biến được tăng lên 1 trong mỗi lần lặp với số lền biết trước.

Giá trị đầu: Mới vào biến đếm sẽ được đặt là giá trị đầu.

Giá trị cuối: Biến đếm sẽ tăng cho đến khi nó có giá trị cuối.

Câu lệnh: Được thực hiện với số lần biết trước.

Câu 2: 

Uses Crt;

Var n, i: integer;

Begin

Clrscr;

write ('Nhap vao mot so nguyen:'); 

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')  

end;

readln;

End.

Câu 1: 

Cú pháp: For <biếm đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>

<biến đếm>: là biến sẽ tăng lên sau mỗi lần lặp.

<giá trị đầu>: giá trị của biến đếm khi bắt đầu vòng lặp, nhỏ hơn hoặc bằng <giá trị cuối>

<giá trị cuối>: giá trị của biến đếm khi kết thúc vòng lặp.

<câu lệnh>: nơi câu lệnh được thự hiện nhiều lần, nếu nhiều câu lệnh thì đặt trong begin end; 

Câu 2:

uses crt;

var n,i:integer;

begin

    clrscr;

    i:= 2;

    write('Nhap vao mot so nguyen: ');

    if n<=1 then

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

    else 

Begin

         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');

end;

readln;

end.