Написать программу с циклов которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое

Uses crt;
const n=15;var a:array[1..100] of integer;i,k:byte;beginfor i:=1 to n do begina[i]:=random(9);write(a[i]:2);end;for i:=1 to n do beginif a[i]=0 thenbeginwriteln;k:=i;writeln('первый нулевой элемент i=',k);break;end;end;end.