Program Recherche_sequentielle_tab;
Var T : Array [1..50] of Integer;
i, v, n : Integer;
Begin
Repeat
Writeln ('N = ');
Readln (n);
Until (10<=n) and (n<=50);
Writeln ('Saisir les ', n, ' éléments de T ');
For i := 1 To n Do 
Readln (T[i]);
Writeln ('Donner la valeur à chercher');
Readln (v) ; i := 0;
Repeat
i :=i+1;
Until (v=T[i]) Or (i=n);
If v=T[i] Then
Writeln (v, ' se trouve à la position ', i)
Else
Writeln (v, ' ne figure pas dans le tableau');
End.