fork download
copy 
  1. program ideone;
  2.  
  3. function getF(n:Integer):Integer;
  4. var i,f:Integer;
  5. begin
  6.  For i:= 1 to n do
  7.   begin
  8.    f:=f*getF(i);
  9.   end;
  10.  writeln(n);
  11. end.
  12.  
  13. begin
  14. 	writeln(IntToStr(getF(3)));
  15. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas: In function `getF':
prog.pas:11: error: syntax error before `.'
stdout
copy 
Standard output is empty
https://ideone.com/vXWHUG
language:
Pascal (gpc 20070904)
created:
6 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!