var n: uint32;begin n:=0; while n<>0 do begin n:=n-1; writeln(n); endend.
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!