fork download
  1. program funcTest(input, output);
  2. var
  3. i, j, k:integer;
  4.  
  5. function Sum(a,b:integer): result integer;
  6. begin
  7. Sum := a + b
  8. end
  9.  
  10. begin
  11. i := 10;
  12. j := 20;
  13. k := Sum(i,j) * 2;
  14. write(k)
  15. end.
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
prog.pas:5: error: unknown identifier `result'
prog.pas:5: error: syntax error before `integer'
stdout
Standard output is empty