pascal Запоминаем первые три переменные подходящие значения в цикле -- с использованием счетчика