program game;
uses crt;
var
a,ingreso,ai,i,b:integer;
begin
clrscr;
textcolor(black);
textbackground(white);
ingreso:=0;
randomize;
Writeln(' El juego consiste en adviniar un numero del 1 al 100 en 7 oportunidades');
ai:=random(99)+1;
writeln('Presione una tecla para continuar');
readkey;
repeat
ingreso:=ingreso+1;
writeln('Por favor ingrese un numero del 1 al 100');
readln(b);
if ai > b then
begin
writeln('El Numero a advinar es mayor');
end;
if ai < b then
begin
writeln('El numero a advinar es menor');
end;
if ai=b then
writeln('Usted a acertado');
until (ai=b) or (ingreso=7);
if ai=b then
writeln('Ganasteee!') else
writeln('Perdiste T_________T');
readkey;
end.