uses crt;
type mas=array[1..100] of string[30];
var s,b: string;
i,n:integer;
a:mas;
begin
clrscr;
write('Vvedite predlogenie ') ;
readln(s);
n:=1;
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
a[n]:=b;
n:=n+1;
b:='';
end
else
b:=b+s[i];
end;
for i:=1 to n do if i mod 2=0 then else write(a[i],' ');
readln;

end.