Напишите программу, которая вводит с клавиатуры 15 целых чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее

varmas:array[1..15] of integer;a,c:integer;beginc:=0;for a:=1 to 15 dobegin  writeln('Введите число:1');readln(mas[a]);c:=c+mas[a];end;writeln('Среднее=',c/a);end.