Складіть блок-схему алгоритму, у якому потрібно задумати число та відняти від нього 1, якщо воно меньше ніж 8; додати до нього 15, якщо воно не менше ніж 8, але меньше ніж 30; помножити його на 5, якщо воно не менше ніж 30. Виконайте складений алгоритм для чисел 4 ; 20; 52.

Решение для одного-двух разных удаляемых символов

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('>');
  s:=s.Replace('.','').Replace(',','');
  s.Println
end.

Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять

Решение, когда разных удаляемых символов может быть много

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('>');
  s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
  s.Println
end.

Используем нумерацию слов не с 1, а с нуля. Заметим, что кодирование слов происходит аналогично кодированию чисел в 4-ричной системе счисления, поскольку мощность алфавита равна 4 (4 буквы). Буква А соответствует 0, К - 1, Р - 2, У - 3.
Тогда слово Р - первое слово, которое начинается на Р, - соответствует числу 20000.в 4-ричной системе счисления
Слово Р - последнее слово, которое начинается на Р, - соответствует числу 23333.
Переведем их в десятичную систему счисления.
20000_4 = (2*4^4)_10 = 512_10
23333_4 = (30000-1)_4 = (3*4^4-1)_10 = 767_10
(X_Y - число X в системе счисления Y. Когда будешь оформлять, Y надо написать как индекс справа внизу от числа X)
Так вот, при нумерации с 1 слово Р будет 513-м, а слово Р будет 768-м