5
просто название получившихся фигур

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.

ну дык по вероятности и с 1 шара есть шанс, что он черный будет. 1 это и есть наименьшее число

1)1

2)1

3)2

4)2

если условия в том, чтоб полюбому должен быть 1 черный, то надо перебрать все неправильные решения

1)6

2)4

3)7

4)5