program Project1;

type tab=array[0..9] of byte;
var i:integer;
  tablica:tab;
  srednia,wynik:double;
  minimum:integer;

procedure wieksze(tablica:tab;var srednia:double;var minimum:integer);
var
  i,suma:integer;
begin
minimum:=tablica[0];
suma:=0;
for i:=0 to 9 do
    begin
    if tablica[i]<minimum then minimum:=tablica[i];
    suma:=suma+tablica[i];
    end;
srednia:=suma/10;
end;

function blisk(tablica:tab):double;
var min:double;
begin
min:=ABS((tablica[1]-srednia));
for i:=0 to 9 do
    begin
    if ABS((tablica[i]-srednia))<min then min:=abs((tablica[i]-srednia));
    end;
result:=min;
end;

begin
writeln('wczytywanie liczb do tablicy');
 for i:=0 to 9 do
     begin
       writeln('Liczba[',(i),']=');
       read(tablica[i]);
     end;
 for i:=0 to 9 do
     begin
       write('Liczba[',(i),']=');
       writeln(tablica[i]);
     end;
wieksze(tablica,srednia,minimum);
writeln('srednia wynosi',(srednia):3:4,'a minimum',(minimum));
wynik:=blisk(tablica);
writeln('a liczba najblizsza sredniej',(wynik));
readln();
readln();
end.