PASCAL для начинающих: Цикл с предусловием (while)