49,6875 (надеюсь правильно ответил)
Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.
1) 3) 4)
Лиса любит розовые,но не любит зелёные=>она выберет розовые.
Волк любит синие,но не любит зелёные=>он выберет зелёные
Ягнёнок любит и синие и розовые,но т.к. розовые заняты=>он возьмёт синие