Условный оператор цикла WHILE.

Является оператором цикла с предпроверкой условия, т.е. вначале проверяет условие, и если оно, верно, то выполняет необходимое действие и возвращается к проверке условия, если же условие не выполняется, то действие не выполняется и цикл заканчивается.

VAR
 I:INTEGER;
BEGIN
 ...
 I:=0;
 WHILE I<100 DO
  BEGIN
   READLN(I);
  END;
 ...
END.

Если <условие> имеет значение TRUE (выполняется), то выполняется <оператор>, после чего повторяется проверка <условия>. Если <условие> имеет значение FALSE (не выполняется), оператор WHILE прекращает свою работу.

Если в условии участвует переменная, то необходимо чтобы значение этой переменной могло изменяться в процессе выполнения цикла, иначе можно получить бесконечный цикл.

Пример программы.

Program While_Demo;
Var
 I  : Integer;
 St : String;
BEGIN
 Write('Введите слово: ');
 Readln(St); 
 Writeln('Повторяю 10 раз.'); 
 I:=0;
 While I < 10 Do
  Begin
   Writeln(St);
   I:=I+1;
  End;
END.

Блок-схема программы.