Найти х в неравен тве 634(8)

program raf105;

var  

 white,blue,red,x,y,z: integer;

 w,b,r: boolean;

begin

writeln('Ввод:');

readln(white, blue, red, x, y, z);

repeat

 w:= false;

 b:= false;

 r:= false;

 if white >= x

   then begin

     white-= x;

     blue+= 1;

   end

   else w:= true;

 if blue >= y

   then begin

     blue-= y;

     red+= 1;

   end

   else b:= true;

 if red >= z

   then begin

     red-= z;

     white+= 1;

   end

   else r:= true;

until w and b and r;

writeln('Вывод:');

writeln(white,' ', blue,' ', red);

end.

PascalABC 3.4.2

Задание1
const nx =50;var q, n,sum,sum1,p,i:integer; sr:real;R:Array[1..10] of integer;Beginp:=1;for i:=1 to 10 do beginR[i]:= random(15)-2;sum1:= sum1 +R[i];write(R[i]:3);if i mod 2 =1 then begin sum:= sum +R[i];p:= p +R[i];end;end;writeln;sr:= sum1/10;writeln('Сумма элементов с нечетными индексами = ',sum);writeln('Произведение элементов с нечетными индексами = ',p);writeln('Среднее арифметическое всех элементов массива = ',sr);foreach q in R do beginif q > sr then n:= n + 1;end;writeln('количество элементов превышают среднее арифметическое  = ',n);end.