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