vari:byte;beginfor i:=1 to 1 dowriteln(i);end.
Standard input is empty
1
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!