function max(n:integer;arr:array of real):real;
var i:integer;
    p:real;
begin
     p:=arr[1];
     for i:=1 to n do begin
     if arr[i]>p then p:=arr[i];
     end;
max:=p;
end;
function min(n:integer;arr: array of real):real;
var i:integer;
    p:real;
begin
     p:=arr[1];
     for i:=1 to n do begin
     if arr[i]<p then p:=arr[i];
    end;
min:=p;
end;
function avg(n:integer;arr:array of real):real;
var i:integer;
    p:real;
begin
     p:=0;
     for i:=1 to n do begin
     p:=p+arr[i];
     end;
 avg:= p/n;
end;



var
       i,n:integer;
       arr:array[1..100] of real;
begin
  writeln('ввести количество больных');
  readln(n);
  for i:=1 to n do begin
  writeln('ввести температуру ',i,' пациента');
  readln(arr[i]);
  end;
  writeln('Min T is ',min(n,arr[1..n]):0:1);
  writeln('Max T is ',max(n,arr[1..n]):0:1);
  writeln('avg T is ',avg(n,arr[1..n]):0:1);
  readln;
end.