fork download
copy 
  1. program compFourNums;
  2. var
  3.   a, b, c, d: smallint;
  4.  
  5. procedure swap(var x, y: smallint);
  6. var temp:smallint;
  7. begin
  8. temp := x;
  9. x := y;
  10. y := temp;
  11. end;
  12.  
  13. begin
  14. readln(a, b, c, d);
  15. if c<d then swap(c, d);
  16. if b<c then swap(b, c);
  17. if a<b then swap(a, b);
  18. if c<d then swap(c, d);
  19. if b<c then swap(b, c);
  20. if c<d then swap(c, d);
  21. writeln(a, ' ',  b, ' ',  c, ' ', d);
  22. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
1 1 2 0
stdout
copy 
2 1 1 0
https://ideone.com/0maTIA
language:
Pascal (fpc 3.0.4)
created:
1 day 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!