program ghm; var text:string; i:integer; beginwrite('Dose minima: ');readln(text);for i := 1 to 25 dowriteln(text);end.
Standard input is empty
Dose minima:
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!