СРОООЧНО!Найдите средне арифметическое таблицы[1...10]Спасибо!

program p1;const n=10;var a: array [1..n] of integer;s,i: integer;r: real;beginrandomize;for i:= 1 to n dobegina[i]:= random (20)-5;write (a[i]:3);s:=s+a[i];end;writeln;r:=s/n;write ('среднее арифметическое=',r);end.

Program Jessika;const   n=10;var   table: array [1..n] of integer;  sum,i: integer;  arifm: real;begin  randomize;  sum:=0;  writeln ('элементы таблицы:'); for i:= 1 to n do    begin      table[i]:= random (101)-50;      write (table[i]:4);      sum:=sum+table[i];    end;  writeln();  arifm:=sum/n;  writeln ('Cреднее арифметическое таблицы равно ',arifm:3:2);end.