exercice sur les tableaux

program tableau;
{clause utilisée pour l'affichage sous windows}
uses wincrt;
{dans cette clause on déclare les nouveaux types comme le type énuméré , intervalle ou tableau}
type
tab=array[1..20] of char;{dans cette clause on déclare les nouveaux objets}
var
t:tab;
i:integer {le i est un compteur de type scalaire (entier) utiliser dans la booucle pour}
begin
for i:=1 to 20 do
begin
write ('donner l''element N°[ ',i,' ] : ');
readln(t[i]);
if upcase(t[i]) in ['A','E','O','I','U','Y'] then
write (' ',t[i])
else
write (' ',ord(t[i]));
end;
end.