Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program pofany;
- var f:file of integer;
- i,n:integer;
- begin
- assign(f,'C:\Users\user.ito-THINK\Documents\2116/DAT.TXT');
- reset(f);
- while not eof (f) do
- begin
- read(f,n);
- write(n,' ');
- end;
- close(f);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement