usando un for to do le preguntaremos al usuario cuantos numeros
desea almacenar y de forma recursiva lo almacenaremos y luego lo que hacemos
es mostrar vector con for to do





program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x:array[1..100]of integer;{Estoy reservando de 1 a 100 espacios
                               en memoria es decir que el usuario no puede
                               pedirnos que alamcenemos mas de  100 numeros
                               pero si puede pedirnos menos
                              }
dim:integer;{Esta variable nos dira la dimension que usaremos en el vector
             es decir que cantidad de espacios reservados que vamos a ocupar
            }
var i:integer; //para controlar el for to do
begin
  { TODO -oUser -cConsole Main : Insert code here }
repeat
write('Cuantos numeros desea almacenar? (menos de 100) ');
readln(dim);{esto nos acorta el trabajo ya que solo trabajaremos con lo
             nos pide el usuario por lo que quedaria el rango imaginario
             de 1 a dim
            }
until (dim<=100);{la dimension no puede ser mayor a 100 por lo que
                 usaremos un repeat que obligara al usuario a ingresar un
                 numero menor o igual a 100
                }
for  i:=1  to dim do {trabaja desde 1 hasta donde pidio el usuario}
begin
write('que almaceno en la casilla ',i,'? X[',i,']=');{preguntara 1 por 1 cada
                                                      casilla}
readln(X);                                         {y se almacenara en su
                                                       posicion i dada por el
                                                       for to do
                                                      }
end;
writeln('sus numeros son los siguientes');
for  i:=1  to dim do
begin
writeln('X[',i,']=',X);
end;
readln;




end.