Одномерный целочисленный массив из 7 ячеек заполнен случайными числами в спектре

program massive;

const

 n=7;

var

 a : array [1..n] of integer;

 i,k,s: integer;

 m:real;

begin

 randomize;

 s:=0;

 k:=0;

 for i:=1 to n do

 begin

   a[i]:=random(15);

   write(a[i],' ');

 end;

 writeln;  

 for i:=1 to n do

   if (a[i]gt;3) and (a[i]lt;7) then

     begin  

       k:=k+1;

       s:=s+a[i];

     end;

 m:=s/k;

 writeln('Среднее арифметическое: ',m:0:2);    

end.