program ideone;var x:integer;begin (* your code goes here *) x:=10; repeat writeln(x); dec(x); until (x>5);end.
Standard input is empty
10
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!