Оператор loop в паскале