Có 2 loại cấu trúc lặp
Gồm:

+ Lặp với số lần biết trước

+ Lặp với số lần chưa biết trước

Ví dụ: 

+ Lặp với số lần biết trước: 

program hi;

uses crt;

var a: integer;

begin

for a:=1 to 5 do

writeln(a);

readln;

end.

+ Lặp với số lần chưa biết trước

program hello;

var a, n: integer;

Tong: longint;

begin

write('a='); readln(a);

Tong :=0;

for n:=1 to a do Tong:=Tong+n;

write(S);

readln;

end.

Có 3 dạng:

+for...do

+while...do

+repeat....until

VD:

+for..do

var i,n: integer;

begin

n:=0;

for i:=1 to 100 do if i mod 2 = 0 then n:=n+1;

write(n);

readln;

end.

+while..do

var i,n: integer;

begin

n:=0;

while i<=100 do if i mod 2 = 0 then n:=n+1;

write(n);

readln;

end.

+repeat...until

var i,n: integer;

begin

n:=0;

repeat

if i mod 2 = 0 then n:=n+1;

until i>100;

write(n);

readln;

end.