vòng lặp với số lần chưa biết trước được thực hiện bằng cấu trúc vòng lặp while:
while (condition) do //condition là điều kiện nhá :v
begin
end;
nếu điều kiện đúng thì câu lệnh trong vòng lặp đc thực hiện, sai thì kết thúc.
VD:
var
x: Integer;
begin
x := 0;
while x < 5 do
begin
writeln(x);
x := x + 1;
end;
end.
//in ra đc từ 0 đến 4