1. Дано слово. Удвоить в нем все буквы, стоящие на четных местах 2. Составьте…

for i: =1 to length (s) dobegin res: =res+s[i]; if i mod 2=0 then res: =res+s[i]; end; writeln (res); i: =Pos (",s); {ищем первый пробел}Delete (s; i; 1); {удаляем первый пробел}i: =Pos (",s); {ищем второй пробел, котрый теперь первый}writeln (s[i-1]); {выдаем знак который находится перед пробелом}