var a:integer;var s1,s2:string;begin inc(a); write('Vvedite slovo: '); readln(s1); repeat s2:=s2+s1[a]; a:=a+2; until(a>length(s1)); writeln(s2); readln;end.
var a:integer;
var s1,s2:string;
begin
inc(a);
write('Vvedite slovo: ');
readln(s1);
repeat
s2:=s2+s1[a];
a:=a+2;
until(a>length(s1));
writeln(s2);
readln;
end.