fork download
  1. {$mode objfpc}
  2.  
  3. Uses Variants;
  4.  
  5. Var V: Variant;
  6. Begin
  7. Writeln('-- in --');
  8. Try
  9. V := 1024*1024*1024*1024*1024;
  10. V := V * 1024;
  11. V := V * 1024;
  12. Except
  13. Writeln('Exception!');
  14. End;
  15. Writeln('-- out --');
  16. End.
Success #stdin #stdout 0s 584KB
stdin
Standard input is empty
stdout
-- in --
-- out --