Ejemplo generando numeros aleatorios pascal

En este ejemplo de turbo pascal crearemos números aleatorios para hacer un juego de adivinanza en el cual deberá adivinar un numero del 1 al 100.

Aquí el código:

Program P3AE4 (input,output); 






uses
 crt; 
Var
 numero,numeroaleatorio: Integer;

 
Begin
numero:=0;
numeroaleatorio:=1;
  while (numero <> numeroaleatorio) do begin
  numeroaleatorio:=Random(100);

  writeln('Ingrese un numero:');
    readln(numero);
  
           if(numero = numeroaleatorio) then begin
     
     writeln('Felicidades as acertado.');
    
     readkey;
                                                    
             end;
  
         if(numero <> numeroaleatorio) then begin
    
          writeln('Incorrecto el valor del numero era. ',numeroaleatorio);
   
         readkey;
                                             
           end;
  
   
 end;
  
                          readkey;
End.

Descargar código:

Link

Turbo Pascal