var a: integer;beginrandomize;a:=random(100);write(a);readln;end.
Standard input is empty
5
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!