предвидеть будущее и реагировать на изменение ситуации определяет: 1) планирование 2) оптимизация 3) выполнение 4) измерение

Планирование

Объяснение:

Планирование — это разработка метода для создания или выполнения чего-либо для достижения цели. 

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.

Var  
a, b: array[1..10] of integer;  
i, min, max, sum: integer;  
begin  
min := 10;  
for i := 1 to 10 do   begin    
write('Введите ',i,'-ый элемент первого массива ');
Readln(a[i]);    
write('Введите ',i,'-ый элемент второго массива ');
Readln(b[i]);  
if a[i] < min then min := a[i];    
if b[i] > max then max := b[i];  
end;  
for i := 1 to 10 do    
write(a[i], ' ');  
Writeln;  
for i := 1 to 10 do    
write(b[i], ' ');  
writeln;   
writeln('Минимальное первого массива ', min);   writeln('Максимальное первого массива ', max);  
sum := min + max;  
for i := 1 to 10 do    
if (i mod 2) = 0 then      
a[i] := sum else
b[i] := sum;  
for i := 1 to 10 do    
write(a[i], ' ');  
Writeln;  
for i := 1 to 10 do    
write(b[i], ' ');
end.