program GuessingGame;
var
 guessedNumber: Integer;
 inputNumber: Integer;

procedure init();
begin
	guessedNumber := Random(100);
end;


procedure guess();
begin
	writeln('Guess some number');
	readln(inputNumber);
	if inputNumber = guessedNumber then
		begin
			writeln('You win!');
			halt();
		end
	else
		begin
			if inputNumber < guessedNumber then
				writeln('You re wrong, the number is greater, guess again')
		        else
				writeln('You re wrong, the number is lesser, guess again');
		end
end;

begin
	Randomize;
	init();
	while true do
		begin
			guess();
		end;
end.