Сделать информатику 10 вопросов​

Var mas: array[1..12] of integer;             mas1: array[1..12] of real; i: integer; begin    for i: =1 to 12 do begin                                mas[i]: =random(5000);                               if (mas[i] mod 2 < > 0) then mas[i]: =mas[i]+i;                           mas1[i]: =mas[i];     if (mas1[i] > 0) then mas1[i]: =mas1[i]/3; writeln(mas1[i]); end;               end.

Var i: integer; n,sum: real; begin   write('введите 10чисел: '); while (i< > 10) do begin                           readln(n);                           sum: =sum+n;                             i: =i+1;   end; writeln('сумма этих чисел -  ',sum); end.