fork download 
  1.  
  2. procedure recur(i: integer);
  3. var
  4.   a: integer;
  5. begin
  6.   if i = 0 then
  7.     exit;
  8.   read(a);
  9.   if a < 0 then
  10.   begin
  11.     write(a, ' ');
  12.     recur(i - 1);
  13.   end
  14.   else
  15.   begin
  16.     recur(i - 1);
  17.     write(a, ' ');
  18.   end;
  19. end;
  20.  
  21. begin
  22.   recur(3);
  23. end.
  24.  
  25.  
Success #stdin #stdout 0s 232KB
comments (?)
stdin 
1 2 3
stdout 
3 2 1
https://ideone.com/25fRzG
language:
Pascal (fpc 3.0.4)
created:
12 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!