Program pas;
Var
  a : char;
Begin
  write('Введите цифру - ');
  readln(a);
    case a of
'а', 'А': writeln (' - Анна');
'о', 'О': writeln (' - Олеся');
'е', 'Е': writeln (' - Елена');
'у', 'У': writeln (' - Ульяна');
'ю', 'Ю': writeln (' - Юля');
'ы', 'Ы': writeln (' - Ылдын');
'э', 'Э': writeln (' - Эля');
'я', 'Я': writeln (' - Яна');
'ё', 'Ё': writeln (' - Ёлка');
'и', 'И': writeln (' - Ильвира');
  else writeln ('Это не гласная буква');
  end;
  readln;
 end.