Помогите нужно!
Заполнить случайный массив в диапозоне [0;100]
Из 5 элементов найти,среднее арифметическое всех элементов массива

Program abc;varmas: array[1..5] of integer;i: integer;a: real;beginfor i:=1 to 5 dobeginmas[i]:=random(1000);writeln('Число ',mas[i], ' ');a:=a+mas[i];end;a:=a/5;write('Среднее число: ', a);end.Держи