Var s: string; i: integer; begin writeln ('введите строку'); readln(s); for i: =1 to length(s) do begin if s[i]='а' then s[i]: ='б' else if s[i]='б' then s[i]: ='а' ; end; writeln(s); end. в эту программу нужно добавить условие: склеить слово из букв стоящих на четных позиций паскаль

Как-то так.

var s,tx:string;
i:integer;
begin
writeln ('введите строку');
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then s[i]:='б' else
if s[i]='б' then s[i]:='а';
if i mod 2=0 then tx:=tx+s[i];
end;
writeln(s);
writeln(tx);
end.