Модуль: Pascal. Задачи на использование цикла while