Pascal/Turbo Pascal - ARREGLOS

{Esto es lo que quieres}

 program arraypropio;

  uses

     crt;

   var

     oscar_chavez : array[1..25] of integer;

     n : integer;

   begin

      clrscr;

      writeln('   Captura Los Numeros Del 1 Al 25  En Oscar_chavez ');

      writeln;

      for n := 1 to 25 do

      begin

      write(' ',n);

      oscar_chavez[n] := n;

      end;

      writeln;

      writeln('   Pulse Una Tecla');

      readkey;

   end.

  {Entra en Compile Destination Memory Pulsa y Pondra Disk Pulsa Compile

   y sera un ejecutable *.exe}