Дано предложение. Заменить в нём все вхождения буквосочетания "про" на "нет"
Code
var
i: integer;
st: string;
begin
readln(st);
for i:=1 to length(st) do
if copy(st, i, 3)='про' then
begin
st[i]:='н';
st[i+1]:='е';
st[i+2]:='т';
end;
writeln(st);
end.