Programozás Pascalban: Iterációk, while - do ciklus