Придумайте , , рекламу для плетённой корзинки из газеты

Если тебе надо рекламу, то вот: ''покупайте эти прекрасные корзинки! обратите внимание на то как оккуратно сделана между прочим долго может продержаться у вас и не ! '' ( если не надо ни чего покупать то просто убери это предложение) =)

Const       n = 10; var       i, imin: integer;       a: array[1..n]of integer; begin       imin : = 2;       for i : = 1 to n do       begin               a[i] : = random(100) - 50;               if (i mod 2 = 0) and (a[imin] > a[i]) then                       imin : = i;       end;       writeln('a[', imin, '] = ', a[imin]);       {вторая часть}       writeln();       a[1] : = 2;       for i : = 2 to n do               a[i] : = 2 * a[i - 1];             for i : = 1 to n do               write(a[i], ' '); end.

1. var a: array [1..11] of integer; i, min, imin: integer; begin for i: =1 to 10 do read(a[i]); min: =32000; imin: =0; for i: =1 to 10 do  if (a[i] mod 2) = 0 then    if a[i]< min then begin min: =a[i]; imin: =i; end; write('минимальное: ', min, ' индекс: ', imin); end.2.function  stepen(c, s: integer): integer; varj, rez: integer; beginrez: =c; for j: =1 to (s-1) do  rez: =rez*c; stepen: =rez; end; vara: array [1..11] of integer; i, min, imin: integer; beginfor i: =1 to 10 do a[i]: =stepen(2, i); for i: =1 to 10 do write(a[i], ' '); end.если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.