Ecrire une fonction qui permet de compter le nombre de voyelle dans une chaîne de caractères s

Correction

Par Ahmed Fessi

program voyelles;
uses wincrt; // a enlever si on Pascal n est pas sur Windows

function comptage_voyelle (s:string):integer;
var
i,n : integer;
begin
n:=0;
for i:=1 to length (s) do
  if ((s[i]='o') or (s[i]='i') or (s[i]='a') or (s[i]='u') or (s[i]='y') or (s[i]='e')) then n:=n+1;
comptage_voyelle:=n;
end;

var
s:string;

begin
writeln('Donner s');
readln(s);
writeln('Le nombre de voyelles est : ',comptage_voyelle(s));
end.