fork(1) download 
  1. program qq;
  2. var 
  3.     x,y : double;
  4.  
  5. procedure foo(x, y: double);
  6. begin
  7.  if cos(x) <> cos(y) then writeln('everything is possible!')
  8. end;
  9.  
  10. begin
  11.  foo(1.0,1.0);
  12. end.
Success #stdin #stdout 0.02s 4112KB
comments (?)
stdin 
Standard input is empty
stdout 
everything is possible!
https://ideone.com/LPGxy9
language:
Pascal (gpc 20070904)
created:
13 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!