Переведите число 131 в 11-ричную системы исчисления

131₁₀=1*11²+3*11¹+1*11⁰=121+33+1=155₁₁

//первая программа

var    a: array[1..10] of integer;     sr, i: integer;   begin    sr : = 0;     for i : = 1 to 10 do    begin        write('a[', i, '] = ');         readln(a[i]);         if i mod 2 = 0 then            sr : = sr + a[i];     end;     writeln('среднее арифметическое элементов стоящих на четных местах: ', sr /(10 div 2));   end.

//вторая программа

var  a: array[1..3, 1..3] of integer;   pr, count, summ, i, j: integer; begin  pr : = 1;   summ : = 0;   count : = 0;   for i : = 1 to 3 do      for j : = 1 to 3 do      begin          write('a[', i, ', ', j, '] = ');           readln(a[i, j]);           if i mod 2 = 1 then              pr : = pr * a[i, j];           if a[i, j] < 0 then          begin              summ : = summ + a[i, j];               count : = count + 1;           end;       end;   writeln('произведение элементов стоящих в четных строках: ', pr);   if count < > 0 then      writeln('среднее арифметическое отрицательных элементов: ', summ / count)  else      writeln('нет ни одного элемента отрицательного элемента'); end.     

//третья программа

var  s: string;   c: char;   i: integer; begin  s : = 'мадагаскар';   writeln('исходная строка: ');   writeln(s);   for i : = 1 to length(s) div 2 do  begin      c : = s[i];       s[i] : = s[length(s) - i + 1];       s[length(s) - i + 1] : = c;   end;   writeln('перевернутая строка: ');   writeln(s); end.