СРООЧНОО!Напишите код в турбо паскаль
Дан текст, в котором записано одно из стихотворений
А.С. Пушкина. Сколько раз встречаются гласные буквы?

Это PascalABC, но на должно сработать и на турбе)

var
  s: string;
  i: longint;
  j: byte;

begin
  writeln(Конец стиха - строка пустая);
  repeat
    for j := 1 to length(s) do
      if (lowcase(s[j]) in [а, е, ё, и, о, у, ы, э, ю, я]) then
        i := i + 1;
    readln(s);
  until s = ;
  writeln(i, гласных букв);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.