fork download
copy 
  1. var buf, s, result:string;
  2.     i: integer;
  3. begin
  4. readln(s);
  5. i :=0;
  6. buf :=''; result:='';
  7. while (i < length(s)) do
  8.  begin
  9.   i := i+1;
  10.   buf:= buf + s[i];
  11.   if (s[i] = ' ') then 
  12.     begin
  13. 	  if (length(buf) mod 2 = 0) then  result := result + buf;
  14. 	  buf := '';
  15.     end;
  16.  end;
  17. writeln(result);
  18. readln();
  19. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 

	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/O5jfI
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Pascal (fpc 3.0.4)

					

					

						
created:
								
						
14 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!