Если первая буква в строке, введенной с экрана гласная (a,e,o,u,y,i), вставить в начало строки слог «ka», если согласная – удалить её

{ Если первая буква в строке, введенной с экрана гласная (a,e,o,u,y,i), 
вставить в начало строки слог «ka», если согласная – удалить её. }
var
  s: string;
begin
  readln(s);
  if s[1] in ['a','e','o','u','y','i'] then
    insert('ka',s,1);
  else if s[1] in ['b','c','d','f','g','h','k','l','m','n','p','q', 'r','s','t','v','w','x','z'] then
    delete(s,1,1);
  writeln(s);
end.

{ Если первая буква в строке, введенной с экрана гласная (a,e,o,u,y,i),
вставить в начало строки слог «ka», если согласная – удалить её. }
var
  s: string;
begin
  readln(s);
  if s[1] in ['a','e','o','u','y','i'] then
    insert('ka',s,1);
  else
    delete(s,1,1);
  writeln(s);
end.