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.