Program Zadacha;
uses crt;
var
inf:text;
q:string;
i:integer;
begin
clrscr;
assign(inf,'in.txt');
reset(inf);
i:=1;
while not eof(inf) do begin
readln(inf,q);
if i mod 2 =1 then writeln(q);
i:=i+1;
end;
readkey;
end.
Program Zadacha;
uses crt;
var
inf:text;
q:string;
i:integer;
begin
clrscr;
assign(inf,'in.txt');
reset(inf);
i:=1;
while not eof(inf) do begin
readln(inf,q);
if i mod 2 =1 then writeln(q);
i:=i+1;
end;
readkey;
end.