{$R+}program ideone;type dia = 3..5;var pituh: dia;begin pituh:= 3; repeat WriteLn(pituh); Inc(pituh) until false;end.
Standard input is empty
3 4 5
Runtime error 201 at $00000000004010DD $00000000004010DD
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!