fork download
copy 
  1. program te;
  2. var I : InTEGER;
  3. 	a_B, z: ReAl;
  4. 	b: array [0..2] of integer;
  5. 	zzz : boolean;
  6.  
  7. function tt(a: integer; n: real): integer; forward;
  8. function aa(): integer; forward;
  9. function tt(a: integer; n: real): integer;
  10. 	var xpto: integer;	
  11. 	begin
  12. 		while (xpto > 0) do 
  13. 			begin
  14. 				writeln(xpto);
  15. 				xpto := xpto -1;
  16. 			end;
  17. 	end;
  18. function aa(): integer; 
  19. 	var b: integer;
  20. 	begin
  21. 			aa := 12;
  22. 	end;
  23.  
  24.  
  25. begin
  26.  
  27. while(1) do
  28. 	i := 1;
  29.  
  30. for i := 11 downto 0 do
  31.     writeln(paramcount);
  32. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas: In function `tt':
prog.pas:17: error: result of function `tt' not assigned
prog.pas: In main program:
prog.pas:27: error: condition must be of Boolean type
stdout
copy 
Standard output is empty
https://ideone.com/nkEMu
language:
Pascal (gpc 20070904)
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!