Найдите среднее арифметическое 5 любых чисел. в паскале с оператором цикла for

Var n,sum,pr: real; i: integer; begin   write('введите 5чисел');   for i: =1 to 5 do begin                 readln(n);                 sum: =sum+n;       end; pr: =sum/5; writeln('среднее арифметическое чисел -  ',pr); end.

Uses   crt; const   n = 10; type   v = array[1..n] of integer; function mid(var a: v): double; var   i, s: integer; begin   s : = 0;   for i : = 1 to n do s : = s + a[i];   mid : = s / n end; var   x: v;   i, j: integer;   m: double; begin   randomize;   m : = 0;   for i : = 1 to 5 do   begin       writeln('элементы массива ', i);       for j : = 1 to n do       begin           x[i] : = random(100);           write(x[i]: 3)       end;       writeln;       m : = m + mid(x)   end;   writeln('среднее арифметическое пяти массивов равно ', m) end. тестовое решение: элементы массива 1   95 44 54 86 52 39 28 79 29 43 элементы массива 2   75 55 26 22 12 93 34 60 34 42 элементы массива 3   55 80 50 54 52 46 85 47 11 86 элементы массива 4   33 35  5 64 36 66 76 55 24 43 элементы массива 5   31 63 66 11 88  4 31 99 28 39 среднее арифметическое пяти массивов равно 76.6

Const   n = 10; var   i, s: integer;   a: array[1..n] of integer; begin   writeln('введите элементы массива через пробел');   for i : = 1 to n do read(a[i]);   s : = a[n];   for i : = n downto 2 do a[i] : = a[i - 1];   a[1] : = s;   for i : = 1 to n do write(a[i]: 4); end. тестовое решение: введите элементы массива через пробел 4 -5 3 10 -4 -6 8 -10 1 0     0    4  -5    3  10  -4  -6    8 -10    1