Karna temen2 request, selain itu juga untuk mengingatkan kita dengan matakuliah pascal,maka ini saya tuliskan koding pascal untuk menghitung huruf vokal
program PenghitungJumlahHurufVokal;
uses wincrt;
var inputkata,x:string;
    jumlah,i,jumVokal:integer;
    masukanLagi:char;
begin
repeat
     clrscr;
     gotoxy(1,2);
     write('masukan kata atau kalimat');
     gotoxy(1,4);
     readln(inputkata);
     x:=inputkata;
     jumlah:=0;
     for i:=1 to length(x) do
     begin
          if x[i] in ['A','I','U','E','O','a','i','u','e','o'] then jumlah:=jumlah+1;
     end;
     jumVokal:=jumlah;
     gotoxy(1,6);

     writeln('jumlah huruf vokal= ',jumVokal);
     writeln;
     gotoxy(1,10);
     write('masukan kalimat lagi?[Y/T]= ');
     masukanLagi:=upcase(readkey);
     writeln(masukanLagi);
     until masukanLagi<>'Y';
end.
Kalo ada yang membingungkan, kita bahas bersama2 disini    
hehehehhe     :D