Pascal/Turbo Pascal - Libro de programación de juegos en Pascal(Delphi)

program project1;

uses crt;

var contador:integer; randon:integer; numero:integer; cerrar:integer;

begin

randon:=random(21); //este numero lo cambias por cualquiera que sea el rango que quieras que se elija

repeat

Writeln('Ingrese un numero');

read(numero);

contador:=contador+1;

clrscr;

until (contador=10) or (numero=randon);

if contador=10

then

  writeln('Perdiste, el numero era: ',randon)

else

begin

writeln('Ganaste');

end;

writeln('Ingrese un numero para cerrar');

 readln(cerrar);

end.