fork download
copy 
  1. program ideone;
  2. var cube:integer;
  3. begin
  4. cube:= random (6)+1;
  5. cube:= cube+cube;
  6. writeln('Число кубика + число кубика ', cube);
  7. cube:=cube*2;
  8. writeln('Полученное число умноженное на два ',cube);
  9. end.
Success #stdin #stdout 0s 336KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
Число кубика + число кубика 8
Полученное число умноженное на два 16


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/aqrHyX
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Pascal (fpc 3.0.4)

					

					

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