fork download
copy 
  1. program xyz;
  2. var x, y, z: integer;
  3.  
  4. begin
  5.     read(x,y,z); write(x,' ', y,' ',z);
  6.     writeln;
  7.  
  8.     if (x >= y) and (x >= z) then
  9.     	if y > z then 
  10.     		write(x,' ',y,' ',z)
  11.     	else
  12.     		write (x,' ',z,' ',y)
  13.     else if (y >= x) and (y >= z) then
  14.     	if x > z then
  15.     		write(y,' ',x,' ',z)
  16.     	else 
  17.     		write(y,' ',z,' ',x)
  18.     else if (z >= x) and (z >= y) then
  19.     	if x > y then
  20.     		write(z,' ',x,' ',y)
  21.     	else
  22.     		write(z,' ',y,' ',x)
  23.  
  24. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
2 6 6
stdout
copy 
2 6 6
6 6 2
https://ideone.com/NJgEwX
language:
Pascal (fpc 3.0.4)
created:
19 hours 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!