ram ex;
uses wincrt;
Type
tab=array[1..100] of string;
Var
i,j,n,nbv:integer;
max:string;
t:tab;
Begin

Randomize;
n:= 4+random(10-4+1);
for i:=1 to n do
begin
writeln('donner t[',i,']');
readln(t[i]);
end;
for i:=1 to n Do
write(t[i],'/');
writeln;
max:=t[1];
for i:=2 to n Do
if length(t[i])> length(max) Then
max:=t[i];
writeln(' max ',t[i]);
nbv:=0;
for i:=1 to n Do
for j:=1 to length(t[i]) do
if upcase(t[i][j]) in  ['A','E','O','I','U','Y'] Then
nbv:=nbv+1;
writeln('nombre de voyel',nbv);
end.