Выпиши обозначения углов многоугольгика

Угол - геометрическая фигура, состоящая из 2 лучей. Угол многоугольника обозначают 3 буквами. В этом случае в середине названия указывают букву, которой обозначена вершина угла.

Самый рациональный решать с конца.
В 3-ий день он продал 1/2 остатка арбузов и еще 10, и у него осталось 16. Значит было 1/2 остатка и 26.
То есть 26 - это половина остатка, а другую половину он продал. Значит, на утро 3-го дня у него оставалось 52.
Во 2-ой день он продал 1/4 остатка от 1-го дня и еще 8, и осталось, как мы уже знаем, 52.
Значит, было 1/4 остатка от 1-го дня и 60. То есть 60 - это 3/4 остатка, а весь остаток - 80 арбузов.
И наконец, в 1-ый день он продал 1/3 всех арбузов и еще 6, и осталось 80. Значит, было 1/3 всех и 86.
То есть 86 - это 2/3 всех арбузов, а всего их было 129.

Итак, у него было 129 арбузов. 
В 1-ый день он продал 1/3*129 + 6 = 43 + 6 = 49 арбузов. Осталось 129 - 49 = 80.
Во 2-ой день он продал 1/4*80 + 8 = 20 + 8 = 28 арбузов. Осталось 80 - 28 = 52.
В 3-ий день он продал 1/2*52 + 10 = 26 + 10 = 36 арбузов. Осталось 52 - 36 = 16

Program example_dom; 
var col_pol,col_otr,i,n,k,s:integer; 
a:array[1..100] of integer; 
Begin 
Randomize; writeln('Введите размерность: ');readln(n); 
For i:=1 to n do 
Begin 
a[i]:=-50+random(100); 
write(a[i]:4); 
end; 
s:=s+a[i]; 
inc(k); 
col_pol:=0; 
col_otr:=0; 
for i:=1 to n do 
begin 
if a[i]>0 then col_pol:=col_pol+1 
else col_otr:=col_otr+1; 
end; 
writeln('сумма элементов массив = ',s); 
writeln('количество положительных элементов=',col_pol); 
writeln('количество отрицательных элементов=',col_otr); 
readln; 
End.