fork download
copy 
  1. program BilanganTerbalik;
  2.  
  3. var
  4.   A: array[1..100] of integer;
  5.   N, i: integer;
  6.  
  7. begin
  8.   readln(N);
  9.  
  10.   for i := 1 to N do
  11.     read(A[i]);
  12.  
  13.   for i := N downto 1 do
  14.   begin
  15.     write(A[i]);
  16.     if i > 1 then
  17.       write(' ');
  18.   end;
  19.  
  20.   writeln;
  21. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
654321
stdout
copy 

	

		
	 
	
				

					
			
			
			
			
			
						
			

			
			
			
		

	
		
		

			
			                        




			
			

				

	
					
					 https://ideone.com/gXOsSy
					
										
					
					

												

												
						
						

					

					
					
					

						
language:

						
Pascal (fpc 3.0.4)

					

					

						
created:
														
23 hours 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!