fork download

copy

var s,buf,result:string;
    i: integer;
begin
readln(s);
i :=0;
result :='';
while (i < length(s)) do
 begin
  i := i+1;
  buf := buf + s[i];
  if (s[i] = ' ') then 
    begin
	  if (length(buf) mod 2 = 0) then  result := result + buf;
	  buf := '';
    end;
 end;
writeln(result);
readln();
end;

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(10,14) Warning: Variable "buf" does not seem to be initialized
prog.pas(19,4) Fatal: Syntax error, "." expected but ";" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty