PROGRAMA PARA GENERAR NÚMEROS ALEATORIOS EN LENGUAJE PASCAL

Program aleatorio;

    Uses

        Crt;

   Var

        x,y : Real;

   i,a,b,c : Integer;

   salto,seguir : Char;

   Procedure lectura

        Begin

            ClrScr;

            Write(' Teclea el valor del número máximo a calcular ');

            Readln(a);

            Writeln;

            Writeln(' ¿ Cuántos números se van a calcular ? ');

            Readln(c);

            ClrScr;

        End;

   Procedure determina;

        Begin

            y:=random(a);

            x:=(y*100)/100;

            b:=int(x);

        End;

   Procedure salida;

        Begin

            ClrScr;

            Write(' El número aleatorio obtenido es => ');

            Writeln(b);

            salto:=readkey;

            ClrScr;

        End;

Begin

   Randomize;

   seguir:='s';

   ClrScr;

   While ((salto='s') or (salto='S')) do

            Begin

                lectura;

                For (i:=1 to c) do

                    Begin

                        determina;

                        salida;

                    End;

                ClrScr;

                Write(' ¿ Deseas volver a ejecutar el programa (S/N) => ');

                seguir:=readkey;

                ClrScr;

            End;

End.