fork download
copy 
  1.  
  2. with Ada.Text_Io; use Ada.Text_Io;
  3.  
  4. procedure Main is
  5.    X : Integer := 3; Y : Integer := 2;
  6.    procedure P (X : Integer) is
  7.       procedure Q (Y : Integer) is
  8.          procedure R (X : Integer) is
  9.          begin Put_Line (Integer'Image (X+Y)); end R;
  10.       begin if Y > 0 then P(X-1); else R(X+Y); end if; end Q;
  11.    begin if X > 0 then Q(X-1); else P(X-Y); end if; end P;
  12. begin P (X-1); end Main;
  13.  
Success #stdin #stdout 0.02s 1716KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
 1


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/3zkCI
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Ada95 (gnat 8.3)

					

					

						
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!