serie revision ex3

program exercice3 ;
uses wincrt ;
type
tab = array [1..7] of char ;
var
	t: tab ;
	n : integer ;
i: integer ;


procedure saisir ( var n: integer) ;

begin
repeat
writeln ('donner un entier') ;
readln (n) ;
until (n in [3..7] ) ;

end;

procedure remplir ( var t:tab ; n: integer ) ;
begin
randomize ;
for i:=1 to n do
t[i]:= chr ( ord('a') + random (26) ) ;
end;

function nombrev ( t:tab ; n: integer) : integer ;
var
nb: integer ;

begin
nb:=0 ;
for i:=1 to n do
if ( t[i] in ['o' , 'i' ,'y' , 'e' , 'a' , 'u'] ) then nb:= nb+1 ;
nombrev:= nb ;

end;



procedure afficher ( var t:tab ; n: integer ) ;

begin
for i:=n downto 1 do
write (t[i] , '|') ;
writeln ;
write ('le nombre des voyelles=' , nombrev(t,n) ) ;



end;











begin
	saisir (n);
remplir (t, n) ;
afficher (t,n) ;


end.