Инструкция цикла While (цикл с предусловием) в общем виде записывается так:
while условие do
// здесь инструкции, которые будут выполняться до тех пор,
// пока условие истинно
end;
Где:
условие – простое или сложное условие выполнения инструкций, находящихся между словами do и end.
Пример:
i := 1;
while i <= 10 do
writeln(i:2, ' Hello, World!');