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

uses crt;constn=15;vara:array[1..n]of real;i,k:integer;s:real;beginfor i:=1 to n do    begin      readln(a[i]);      s:=s+a[i];    end;s:=s/n;writeln;clrscr;for i:=1 to n do   begin    write(a[i]:6:2);       if a[i]=s then           inc(k);   end;writeln;if k<>0 then   writeln('k: ',k)else writeln('Нет равных')end.