Advertisement
dxvmxnd

Untitled

Oct 22nd, 2023
23
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. Program Test_4;
  2. uses
  3. System.SysUtils;
  4.  
  5. Var Length, I: Integer;
  6. A : Array of Integer;
  7. File1:TextFile;
  8.  
  9.  
  10.  
  11. Begin
  12. Readln(Length);
  13. AssignFile(File1, 'input.txt');
  14. Reset(File1);
  15. for I := 0 to (Length-1) do
  16. begin
  17.  
  18. Readln(File1, A[I]);
  19. writeln(A[I]);
  20. end;
  21.  
  22. CloseFile(File1);
  23. Readln;
  24.  
  25. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement