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

Question

Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово и определить первая буква совпадает с заданной .
В паскале

Answer 1

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите слово:').ToLower;
  var c:=ReadlnChar('Введите букву:').ToLower;
  if Pos(s[1],'аеёиоуыэюя')>0 then Writeln('Слово начинается с гласной')
  else Writeln('Слово начинается не с гласной');
  If s[1]=c then Writeln('Слово начинается с указанной буквы')
  else Writeln('Слово не начинается с указанной буквы')
end.

Примеры
Введите слово: Арбуз
Введите букву: к
Слово начинается с гласной
Слово не начинается с указанной буквы

Введите слово: Барабан
Введите букву: б
Слово начинается не с гласной
Слово начинается с указанной буквы

Comments

Это будет работать через CASE?

---

ЗАДАЧа С ОПЕРАТОРОМ ВЫБОРА CASE должна решаться