Advertisement
Guest User

Untitled

a guest
Jun 24th, 2019
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.19 KB | None | 0 0
  1. program dog;
  2.  
  3. var
  4.   s: string;
  5.   i1, i2, d: longint;
  6.  
  7. begin
  8.   readln(s);
  9.   readln(i1, i2);
  10.   d := length(s);
  11.   delete(s, d-i1-i2+2, i2);
  12.   delete(s, i1, i2);
  13.   writeln(s);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement