Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var a,b,c:longint;
- f1,f2:text;
- begin
- assign(f1, 'input.txt'); reset(f1);
- assign(f2, 'output.txt'); rewrite(f2);
- read(f1,a,b);
- c:=a+b;
- writeln(f2,c);
- close(f1); close(f2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment