// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var Гласные:=['а','е','ё','и','о','у','ы','э','ю','я'];
var s:=ReadlnString;
for var i:=s.Length downto 1 do
if LowCase(s[i]) in Гласные then Insert('c'+LowCase(s[i]),s,i+1);
Writeln(s)
end.
Примеры
Числитель
Чиcислиcитеcель
Анастасия, принеси бумагу и силикатный клей!
Аcанаcастаcасиcияcя, приcинеcесиcи буcумаcагуcу иcи сиcилиcикаcатныcый клеcей!