Составить алгоритм. задан массив р состоящий из 13 чисел. найти среднее арифметическое этих элементов.

Var P:array [0..12] of integer;i:integer;b:real;beginb:=0;for i:= 0 to 12 do beginP[i]:=random(0,12);b:=b+P[i];end;b:=b/13;write(b:5:2);end.