{ p.41 ReadWriteDemo }
program ReadWriteDemo(input,output);
var 
	position1: string;
begin
	writeLn('Please type in some data.');
	readLn(position1);
	writeLn('The data have been stored.');
	writeLn('Next the data will be printed.');
	writeLn(position1);
	writeLn('This completes the run.');
end.