Programa.dpr 414 B

123456789101112131415161718192021222324252627
  1. program Programa;
  2. {$APPTYPE CONSOLE}
  3. uses
  4. UnitVectores in 'UnitVectores.pas';
  5. var
  6. Vector1: TVector;
  7. Vector2: TVector;
  8. begin
  9. WriteLn('Carga los elementos del primer Vector');
  10. Cargar(Vector1);
  11. WriteLn('Carga los elementos del segundo Vector');
  12. Cargar(Vector2);
  13. WriteLn('Datos del primer vector');
  14. Imprimir(Vector1);
  15. WriteLn('Datos del segundo vector');
  16. Imprimir(Vector2);
  17. ReadLn
  18. end.