fork download
copy 
  1. program test;
  2.  
  3. type Ptr = ^Integer;
  4.  
  5. var x, y : Ptr;
  6.  
  7. procedure Print(n : Integer; x, y : Ptr);
  8. begin WriteLn(n, '. x = ', x^:8, ', y = ', y^:8) end;
  9.  
  10. begin
  11.     x := New(Ptr);
  12.     y := x;
  13.     Print(1, x, y);
  14.     Inc(x, 1);
  15.     Print(2, x, y);
  16.     x^ := 123;
  17.     Print(3, x, y);
  18.     Dispose(y);
  19. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
1. x =   -32724, y =   -32724
2. x =   -18565, y =   -32724
3. x =      123, y =   -32724


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/XpEm4g
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Pascal (fpc 3.0.4)

					

					

						
created:
								
						
12 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!