program pole;
 type p= array [1..10] of integer;
 var a: p;
     i: integer;
     s,min:real;
     b: array [1..4] of real;

 procedure nacitanie;
           begin
           for i:= 1 to 10 do begin
                              write('Zadaj  ',i,' zlozku pola  ');
                              readln(a[i]);
                              end;
           end;

 procedure priemer(a: p ; var s:real);
           begin
           s:=0;
           for i:= 1 to 10 do s:=s+a[i];
           s:=s/10;
           end;

 procedure spracovanie(i:integer);
           begin
           nacitanie;
           priemer(a,s);
           b[i]:=s;
           writeln ( ' priemer merania',i,' = ',s);
           writeln;
           end;

 begin
 spracovanie (1);
 spracovanie (2);
 spracovanie (3);
 spracovanie (4);
 
 min:=b[1];
 for i:= 2 to 4 do if min > b[i] then min := b[i];
 writeln(' min = ',min:5:2);
 end.