Program PascalGuru;
label 1;
 
var p:integer;
    s:string;
 
begin
write('Vvedite stroku:'); readln(s);
writeln('Ishodnaya stroka: ',s);
 
 
repeat
p:=pos('ро',s);
 
if p>0 then
       begin
       s[p]  :='л';
       s[p+1]:='а';
       end;
 
until p=0;
 
writeln;
writeln('Preobrazovannaya stroka: ',s);
 
readln;
end.