С клавиатуры вводится текст из строчных латинских букв. Ввод прекращается при нажатии клавиши Enter. Напечатать эту строку, предварительно преобразовав ее следующим образом:
1) заменить на ks первое вхождение x, если такое есть;
2) вычислить процентное содержание гласных букв в строке.

Примечание: Все операции над строками выполняются отдельными функциями в том порядке, в котором они описаны в задании.

//Pascal ABC.NET 3.1 сборка 1219Var s:string; k,i:integer; se:set of char;beginse:=['A','E','I','O','U','a','e','i','o','u'];readln(s);k:=pos('x',s);if k<>0 thenbegin delete(s,k,1); insert('ks',s,k);end;writeln(s);k:=0;for i:=1 to length(s) doif s[i] in se then inc(k);write('Percent=',k/(length(s)/100));end.Пример ввода:I3artle, Caster, exported from the Throne of Heroes.Пример вывода:I3artle, Caster, eksported from the Throne of Heroes.Percent=30.188679245283