Вася суеверный человек. каждый раз, когда он видит в строке подпоследовательность 228, то он начинает её бояться. степень страха равна количеству различных подпоследовательностей 228 в строке. подпоследовательность — это последовательность, которую можно получить из другой последовательности путем удаления некоторых элементов, не меняя порядок оставшихся элементов. подпоследовательности считаются различными, если множества позиций удалённых элементов у них отличаются. напишите прогу на питоне

Var max_i, max_j, j, columns, rows, i : integer; arr: array[1..10,1..10] of integer; begin   rows : = random(8) + 2;   columns : = random(8) + 2;   writeln(rows, columns);     for i : = 1 to rows do       for j : = 1 to columns do           arr[i, j] : = random(100);   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln();   max_i: =1;   max_j: =1;   for i : = 1 to rows do       for j : = 1 to columns do           if arr[max_i, max_j] < arr[i, j] then begin               max_i: =i;               max_j: =j;           end;   for i : = 1 to rows do       if i < > max_i then           arr[i, max_j] : = 0;   for j : = 1 to columns do       if j < > max_j then           arr[max_i, j] : = 0;   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln(); end.