var
s:string;
i:longint;
begin
readln(s);
for i:=1 to length(s) div 2 do write(s[i]);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s:string;
i:longint;
begin
readln(s);
for i:=1 to length(s) div 2 do write(s[i]);
end.