program forytwo;

var
pronadjen:boolean;
x:integer;
procedure provera();
begin
	while pronadjen=false do
	begin
	readln(x);
	if (x<42) or (x>42) then
	begin
		writeln(x);
		provera();
	end
	else
		pronadjen:=true
end;
end;


begin
	writeln('Upisi Neki broj');
	pronadjen:=false;
	provera();
	while pronadjen=true do
	begin
	readln(x);
	end;
	readln();
end.