Advertisement
Guest User

Untitled

a guest
Jan 19th, 2018
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. var
  2. f: text;
  3. s: string;
  4. i, j, p: integer;
  5.  
  6. begin
  7. AssignFile(f, 'output.txt');
  8. Reset(f);
  9. j := 60;
  10. i := 2;
  11. for p := 1 to 30 do
  12. begin
  13. readln(f, s);
  14. delete(s, i, 1);
  15. insert('x', s, i);
  16. inc(i, 2);
  17. delete(s, j, 1);
  18. insert('x', s, j);
  19. dec(j, 2);
  20. writeln(s);
  21. end;
  22. close(f);
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement