Цикл с предусловием

Формат:

   while <условие> do
   begin
     {тело цикла} 
   end;

Последовательность действий при выполнении цикла:

1. Проверяется истинно ли <условие>.
2. Если это так, то выполняется операторы, заданные в теле цикла.
3. Пункты 1 и 2 выполняются до тех пор, пока <условие> не станет ложным.

Особенности:

   •         условие окончания цикла может быть выражено переменной, константой или выражением, имеющим логический тип.
   •         можно использовать сложные условия:
  •         если в теле цикла только один оператор, слова begin и end можно не писать:

Пример: Определить количество цифр числа.
Задача: Ввести целое число (<2000000) и определить число цифр в нем.
Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик.
Проблема: Неизвестно, сколько шагов надо сделать.
Решение: Надо остановиться, когда n = 0, т.е. надо делать «пока n <> 0». 

   program qq;
   var n, n1,count: integer;
   begin
      writeln('Введите целое число');
      read(n);
      n1:=n;
      count := 0;
      while n <> 0 do
      begin
          count := count + 1;
          n := n div 10;
      end;
      writeln('В числе ', n1, ' нашли ',count, ' цифр');
    end.