Наталия Паршикова
КЕ
Кусьма Евгеньевна
var
s: string;
p: integer;
begin
write('строка? ');
readln(s);
p := pos('абвг', s);
while p <> 0 do begin
delete(s, p, 4);
p := pos('абвг', s);
end;
writeln('результат: ', s);
end.
Похожие вопросы