Var x: …
Begin
Read… (x)
While (x= <условие продолжения цикла>) do begin
<обработка х>
Read… (x)
end WHILE состоит из логического выражения, которое управляет многократным выполнением других операторов. Оператор, расположенный после ключевого слова DO выполняется многократно до тех пор, пока логическое выражение принимает значение true (истина). Как только логическое выражение принимает значение false (ложь), оператор перестает выполняться.