Varvara_Golovnova

Untitled

Jul 15th, 2024
12
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. var
  2. s1,s2 : string;
  3. c1,c2 : char;
  4. d1,d2,d3 : longint;
  5. begin
  6. readln(c1);
  7. readln(c2);
  8. readln(s1);
  9. s2:=s1;
  10. d1:=pos(c1,s1);
  11. d2:=pos(c2,s2);
  12. delete(s1,d1,1);
  13. delete(s1,d2+1,1);
  14. writeln(s1);
  15. end.
Add Comment
Please, Sign In to add comment