Правильный ответ 17. объясните, , почему так.

1. "Школьное" решение

// PascalABC.Net 3.0, сборка 1066
var
  s,s1:string;
  i:integer;
  a:char;
begin
  Write('Введите натуральное число любой длины :'); Readln(s);
  Write('Введите цифру, которую надо удалить: '); Readln(a);
  s1:='';
  for i:=1 to Length(s) do
    if s[i]<>a then s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовый прогон:
Введите натуральное число любой длины :3141592653589793
Введите цифру, которую надо удалить: 5
Результат: 3141926389793

2. Современное решение (так в школе почему-то не учат)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите натуральное число любой длины :');
  var a:=ReadChar('Введите цифру, которую надо удалить: ');
  Write('Результат: ',s.Replace(a,''));
end.

V=K*I;
V - объем сообщения
K - количество символов в сообщении I - вес одного символа;
N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5);
V₁=V₂ (объёмы сообщений);
2,5*K₁ = K₂
V₁=K₁*I₁;
V₂=K₂*I₂=2,5*K₁*I₂;
приравняем объёмы
K₁*I₁=2,5*K₁*I₂ ⇒
I₁ = 2,5*I₂
решим уравнение в целых числах, учитывая, что любое I≤5
( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число);
у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2
нам нужны мощности 1го и 2го алфавитов
N₁=2^I₁=2⁵=32 символа;
N₂=2^I₂=2²=4 символа.