CODE EXAMPLE FOR PASCAL

Pascal (fpc 3.0.4) sample

program ideone;
var x:byte;
begin
	readln(x);
	while x<>42 do
	begin
		writeln(x);
		readln(x)
	end
end.