program fdy;
 
function tg (x : real) : real;
begin
tg := sin(x)/cos(x);
end;
 
var t:array [1..14] of real;
    i,j:integer;
    b:boolean;
    summa:real;
 
 
begin
for i:=1 to 14 do t[i]:=tg(i);
writeln('Ishodnyi massiv:');
for i:=1 to 14 do write(t[i]:8:2);
 
summa:=0;
 
for i:=2 to 14 do
    begin
    b:=true;
     for j:=1 to i do
     if t[j]<t[i] then b:=false;
 
    if b then summa:=summa+t[i];
    end;
 
writeln;writeln('Summa: ',summa:0:2);
 
readln();
end.