Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- f: text;
- s: string;
- i, j, p: integer;
- begin
- AssignFile(f, 'output.txt');
- Reset(f);
- j := 60;
- i := 2;
- for p := 1 to 30 do
- begin
- readln(f, s);
- delete(s, i, 1);
- insert('x', s, i);
- inc(i, 2);
- delete(s, j, 1);
- insert('x', s, j);
- dec(j, 2);
- writeln(s);
- end;
- close(f);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement