Прочитайте задачу, которая предлагает Ивану-Царевичу выбрать правильное направление пути. У Ивана-Царевича есть два варианта дальнейшего пути:
направо - «Коня потеряешь»
налево - «Голову сложишь»

Составьте блок-схему задачи

Желтые      Красные    Зеленые
  6                  6              0
  8                  0              4
  7                  3              2

Вот программка на Паскале:

uses Crt;
var g, k, z:integer;

begin
 ClrScr;
 for g:=0 to 12 do
   for k:=0 to 12 do
      for z:=0 to 12 do
          begin
             if (g+k+z=12)  and (0.5*g+1.5*k+2*z=12) then
                WriteLn (g,' ',k, ' ', z);
          end;
 ReadLn;
end.

Вывод: Можно вообще не брать красные или зеленые шары.
Если брать шары всех цветов, то ответ у задачи один
7   3   2

Программа может выглядеть так:

uses Crt;
const n=50;
type Vec=array [1..n] of integer;
var A: Vec;
    i, Sum, Col: integer;
begin
ClrScr;
Randomize;
Sum:=0;
Col:=0;
 for i:=1 to n do
     begin
       A[i]:=10+random(40);
       Write(A[i]: 4);
       if (i mod 10 =0 ) then WriteLn;
       if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then
         begin
              Sum:=Sum+A[i];
              Col:=Col+1;
         end;
     end;
 WriteLn;
 WriteLn (' Sum = ', Sum);
 WriteLn (' Col = ', Col);
ReadLn;
end.