Advertisement
Guest User

Untitled

a guest
Jun 17th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.16 KB | None | 0 0
  1. var
  2.   s1, s2, s3 : string;  
  3. begin
  4.   readln(s1);
  5.   s2 := s1;
  6.   s3 := 'o';
  7.   delete(s1, pos(s3, s1), 1);
  8.   s2[pos(s3, s1) + 1] := 'r';
  9.   print(s2);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement