Разберитесь как работает ещё одна функция замены.(желательно в PascalABC)

Функции замени и редактора

/Repair

/Remove

/Resterts

/Remove {число} [айпи]

Надеюсь

пример неправильных данных - ReplaceBad('abc','b','bb')

так функция не выйдет и цикла

в строке abc буква 'b' будет заменяться на 'bb'

abc->abbc->abbbc->....>abbb......bbbbc ну и пока памяти хватит

Объяснение:

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.