lab1v8n1

program lab1v8;
var
  min:Real;

procedure ProcessData;
var
  x:array[1..6]of Real;
  i:Integer;
begin
     x[1]:=(sin(1)-1)/(2*cos(1)+1);
     min:=x[1];
     for i:=2 to 6 do //however, we shouldn't store the whole array
     begin
        x[i]:=(sin(i)-1)/(2*cos(i)+1);
        if x[i]<min then min:=x[i];
     end;
end;

procedure ExportData;
begin
     WriteLn(min:0:4);
end;

//main
begin
     //ImportData;
     ProcessData;
     ExportData;
end.