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.