Модуль: Schleifenanweisung mit der Bedingung - while

Задача

Analysieren Sie Ihre bisherige Aufgabe und beantworten Sie die Frage:
Was ist der Wert der Variablen n nach dem Ende des Programms?

Programm:

var n, zählen: ganze Zahl;
Anfang
gelesen(n)
Anzahl : = 0;
während n verbal 0 beginnen
+ Anzahl = 1;
n : = n div 10;
Ende;
Schreibln('Number - ', n, ' enthält ', Graf, ' Ziffern');
Ende.