попытка извлекая конец если как последуйте за:, то
'Сортируйте характеры в заказ, самый низкий наиболее высоко, для каждого падающего вниз
Если (vRand1>vRand2 и vRand1>vRand3) после этого vCheck1 = vRand1
ElseIf (vRand1>vRand2 и vRand1 ElseIf (vRand1>vRand3 и vRand1 ElseIf (vRand1
Если (vRand2>vRand1 и vRand2>vRand3) после этого vCheck2 = vRand2
ElseIf (vRand2>vRand1 и vRand2 ElseIf (vRand2>vRand3 и vRand2 ElseIf (vRand2
Если (vRand3>vRand1 и vRand3>vRand2) после этого vCheck3 = vRand3
ElseIf (vRand3>vRand1 и vRand3 ElseIf (vRand3>vRand2 и vRand3 ElseIf (vRand3