program ideone;var x:byte;begin readln(x); while x<>42 do begin writeln(x); readln(x) endend.
1 2 10 42 11
1 2 10
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!