Дана строка. Удвоить в ней все буквы "Е".
(решить с помощью составления новой строки)

var  s1,s2:string;  i:integer;begin  Write('Введите строку: '); Readln(s1);  s2:='';  for i:=Length(s1) downto 1 do    if s1[i]='Е' then s2:='ЕЕ'+s2    else s2:=s1[i]+s2;  Writeln('Результат: ',s2)end.ПримерВведите строку: ЧТО ЭТО ТАКОЕ ДЛИННОШЕЕЕ?Результат: ЧТО ЭТО ТАКОЕЕ ДЛИННОШЕЕЕЕЕЕ?