while … do

Ogólny schemat:

while Warunek do
    //Instrukcja

W Pętli tej, instrukcje wykonywane są dopóki Warunek jest prawdziwy. W przeciwieństwie do pętli repeat … until Warunek jest sprawdzany przed wykonaniem interacji.

Przykład:

program Liczba_cyfr;

var
    n : LongInt; //Wczytana liczba
    Cyfr : byte;

begin
    WriteLn('Podaj liczbe');
    ReadLn(n);
    while n <> 0 do
        begin
            Inc(Cyfr); //+ 1 cyfra
            n := n div 10; //liczbe n "zmniejszamy" o cyfre
        end;
    WriteLn(Cyfr); //Wypisujemy liczbe cyfr liczby n
end.

Powyższy program wczytuje liczbę n i zlicza liczę cyfr składających się na nią. Pętla while … do w tym wypadku trwa dopóty liczba n nie będzie równa 0 (jej wartość jest zmniejszana przez dzielenie całkowite przez 10).