program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var finput,foutput:textfile; line,line2:string;
  count,i:integer; ans:string;
begin
assign(finput,'input.txt');
reset(finput);
readln(finput,line);

while (line<>'') do begin
  count:=1;
  line2:='';
  for i:=count+1 to Length(line) do line2:=line2+line[i];
  line:=line2;
end;

assign(foutput,'output.txt');
rewrite(foutput);
writeln(foutput,ans);
close(foutput);
end.
