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

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

/Repair

/Remove

/Resterts

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

Надеюсь

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

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

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

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

Объяснение:

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);