funcao talvez_diga_verdade (int a, int b):
	int x
	string maior, menor

	x <- rand(0,10000)

	se (x >= 1000):
		maior <- "Tente um numero maior"
		menor <- "Tente um numero menor"
	senao:
		menor <- "Tente um numero maior (ha ha)"
		maior <- "Tente um numero menor (ha ha)"

	se (a > b):
		mostre maior
	senao:
		mostre menor
		

num <- rand(0,100)

mostre "Tente adivinhar o número: ",
leia x
tentativas <- 1

enquanto (x != num):
	talvez_diga_verdade (num, x)
	leia x
	tentativas <- tentativas + 1

mostre "OK, você conseguiu em", tentativas, " tentativas!"