Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. program asd;
  2.  
  3. uses crt;
  4.  
  5. var hfile : text;
  6. var l1, l2 : integer;
  7. var wynik : integer;
  8. var tmp : string;
  9. const defdir = 'M:/Programowanie/dodawanie-pliki/';
  10.  
  11. begin
  12.  
  13. clrscr;
  14.  
  15. tmp := defdir + 'liczby.txt';
  16. assign(hfile, tmp);
  17.  
  18. readln(hfile, l1);
  19. readln(hfile, l2);
  20.  
  21. writeln(l1, '   ', l2);
  22.  
  23. close(hfile);
  24.  
  25. write('asdsa');
  26.  
  27. readln;
  28. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement