Соседями элемента Аj, назовем элементы Ак і-1 << < i+1, j-1 <1 <ј+1, (k, 1)+( i, jОперация сглаживания матрицы дает новую матрицу того же размера, каждый элементкоторый получается как среднее арифметическое имеющихся соседей соответствующегоэлемента исходной матрицы. Построить результат сглаживання заданной вещественнойматрицы размером 10 на 10.В сглаженной матрице найти сумму модулей элементов, расположенных низке главнойДиагонали.​

Var St: string;
 z:string[10];
 x:string[2];
i,j,k,m: integer;           //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0;                       //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
 begin;
  for m:=1 to 10 do
   if St[j]=z[m] then inc(k);
 end;
if k=0 then
begin;
 writeln('в тексте нет цифр');
 exit;
end;                              //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.