Голосні

До голосних літер в латинському алфавіті відносяться літери A, E, I, O, U і Y. Інші літери вважаються приголосними. Напишіть програму, яка підраховує кількість голосних літер в тексті.

Вхідні дані

У вхідному файлі міститься один рядок тексту, який складається лише із заглавних латинських літер та проміжків. Довжина рядка не перевищує 100 символів.

Вихідні дані

У вихідний файл вивести одне ціле число – кількість голосних у вхідному тексті.

Вхідні дані

COBRA

Вихідні дані

2

program golosni;

var i,k : integer;

b : string;

BEGIN

readln (b);

k:=0;

for i:=1 to length(b) do

if (b[i]='A') or (b[i]='E') or (b[i]='I') or

(b[i]='O') or (b[i]='U') or (b[i]='Y') then k:=k+1;

writeln (k);

END.