Операции над множествами

[britva666]

Составьте программу вычисления суммы мест, на которых в слове X стоят гласные буквы.

[britva666]

Давайте у кого какие идеи

[Serge_Bliznykov]

гласные буквы то хоть русские? или английские, латинские?...
если русские, то:

{Гласные буквы- }
const glas = ['а','е','и','о','у','ы','э','ю','я']; 
var s : string;
  i, Sum : integer;
begin
  WriteLn('Давай строку вводи:');
  Readln(s);
  Sum := 0;
  for i:=1 to Length(s) do
     if s[i] in glas then Sum := Sum + i;
  WriteLn('Сумма позиций гласных букв = ',Sum)
end.