5 Oportunidades

Este trabajo lo hemos realizado mi compañera Tere y yo y trata de introducir un numero y tan solo tienes 5 oportunidades para acertar

CLS

I=RAND

I=I*100

I=INT(I)

cuentaveces=0

DO

INPUT "INTRODUCE NUMERO ->" , X

IF X=I THEN

PRINT "ENHORABUENA"

ELSE

PRINT "SIGUE PROBANDO"

END IF

cuentaveces=cuentaveces+1

UNTIL X=I OR cuentaveces >=5