Оператор повтора while имеет следующий формат:
while <условие> do
<оператор>;

Перед каждым выполнением тела цикла происходит проверка условия. Если оно истинно, цикл выполняется и условие вычисляется заново; если оно ложно, происходит выход из цикла, т.е. переход к следующему за циклом оператору. Если первоначально условие ложно, то тело цикла не выполняется ни разу. Следующий пример показывает использование оператора while для вычисления суммы S = 1 + 2 + .. + N, где число N задается пользователем с клавиатуры:

program Console;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
S, N: Integer;

begin
Readln(N);
S := 0;
while N > 0 do
begin
S := S + N;
N := N - 1;
end;
Writeln('S=', S);
Writeln('Press Enter to exit...');
Readln;
end.