uses scontri;

const MAXN = 10005;
var N, i : longint;
    freccia : array[0..MAXN-1] of longint;
    fr, fw : text;

begin
    assign(fr, 'input.txt'); reset(fr);
    readln(fr, N);
    for i:=0 to N-1 do
        read(fr, freccia[i]);
    close(fr);
    assign(fw, 'output.txt'); rewrite(fw);
    writeln(fw, Gira(N, freccia));
    close(fw);
end.