Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var k:char;
- begin
- assign(input,'input.txt');
- assign(output,'output.txt');
- reset(input);
- close(input);
- rewrite(output);
- close(output);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement