Цикл с условием WHILE

Оператор цикла с условием while выполняет цикл до тех пор, пока заданное условие остается истинным. Как только условие становится ложным, цикл прерывается. Начинается цикл с ключевого слова while, после чего идет условие. После do указывается тело цикла.

while x > 0 do
  Write(x);

В данном примере мы получаем бесконечный цикл. Надо следить, чтобы циклы не были бесконечными.

while x > 0 do
  begin
    Write(x);
    x:=x-1;
  end;