makrusak

Files ABC

Oct 15th, 2012
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.18 KB | None | 0 0
  1. var a,b,c:longint;
  2. f1,f2:text;
  3. begin
  4. assign(f1, 'input.txt'); reset(f1);
  5. assign(f2, 'output.txt'); rewrite(f2);
  6. read(f1,a,b);
  7. c:=a+b;
  8. writeln(f2,c);
  9. close(f1); close(f2);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment