Выполните действия по блок-схеме для Х = 20​

1) переход от порядка к хаосу (уменьшение информации):
- извержение вулкана: количество информации больше, когда горные породы находятся в спокойном состоянии, уменьшение информации выражается в том, что происходит  выброс газов, горячего воздуха, пепла, разрушение горных пород, лава изливается;
- ураган: частички песка и пыли поднимаются в воздух, уменьшается количество песка на поверхности земли - т.е. уменьшается количество информации
2) Переход от хаоса к порядку:
- муравьи строят муравейник (в хаотичном состоянии находятся иголки хвойных деревьев, мелкие палочки),
- сбор меда пчелами в соты;
- птицы для перелета собираются в стаи.
3. Для сообщения: полезность, достоверность, краткость, актуальность для данного момента, независимость (от мнения и взглядов составителя сообщения)
4. Для знаний: понятность, актуальность, научность, точность, полнота излагамых знаний.
5. Автоматизированная линия на машиностроительном предприятии по сборке из деталей машины. Системы управления в современных автомобилях - контроль за скоростью движения. Системы управления самолетами: определение оптимального воздушного пути (траектории полета), система навигации - автоматическое предотвращение аварий и .д.
6. Сообщения с 1 битом информации:
- Да / нет (на любой вопрос, который требует данного ответа)
- выпал орел или решка
- из двух цветов достали красный или черный
- человек живет в одном из двух подъездов (в 1 или во 2) 

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.