Программа:
Program HACK;
var
f:text;
kol,bol:integer;
ar,x, summa:real;
name:string;
Begin
{$I-}
writeln('Vvedite imya faila');
readln(name);
assign(f,name);
reset(f);
if IOresult<>0 then
begin
writeln('File ne naiden!');
exit
end;
while not eof do
begin
read(f,x);
summa:=summa+x;
kol:=kol+1;
end;
bol:=0;
close(f);
reset(f);
ar:=summa/kol;
while not eof do
begin
read(f,x);
if x>ar then bol:=bol+1;
end;
writeln('Kol-vo elementov bolshix srednego arifmeticescogo=',bol);
End.