// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('sum=',ArrRandom(10,1,50).Println.Sum);
end.
<u><em>Тестовое решение:</em></u>
15 12 23 4 13 44 15 3 33 22
sum=184
ответ: 1-Россия, 2-Китай, 3-Украина, 4-Германия, 5-Италия
Архитектор,врач,учитель,бизнесмен,бухгалтер,секретарь,писатель,модельер
на "Б" и "Г" хватит провода а на другие нет