2013/04 – Fase scolastica – 10

È dato il seguente programma:

Program E10(Input, Output);
Const
   N=10;
Var
   v: Array[1..N] Of Integer;
   i: Integer;
Procedure p();
Var
   i, t, s: Integer;
Begin
   Repeat
      s:=0;
      For i:=3 To N-1 Do
         If(v[i-1] < v[i]) Then
            Begin
               t:=v[i-1];
               v[i-1]:=v[i];
               v[i]:=t;
               s:=1
            End
   Until(s = 0)
End;
Begin
   v[1]:=3; v[2]:=5; v[3]:=2; v[4]:=0; v[5] :=8;
   v[6]:=1; v[7]:=4; v[8]:=9; v[9]:=6; v[10]:=7;
   p();
   For i:=1 To N Do
      Write(' ', v[i]);
End.

Cosa viene visualizzato a video dall’esecuzione del programma ?