Составить и отладить программу, выполняющую следующее задание. Заменить цифру ≪3≫.во введенной строке на ≪5≫.

Var S : String;
Begin
  Readln(S);
  While Pos('3',S)>0 do S[Pos('3',S)]:='5';
  Writeln(S);
end.