Составить алгоритм. Задан массив Р состоящий из 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.