Дано слово s1. получите слово s2, образованное четными буквами слова s1.

Var a,w:string; b:integer;
begin
readln(a);
for b:=1 to length(a) do
begin
If b mod 2 >0 then
w:=w+copy(a,b,1);
end;
writeln(w);
end.