4. Складіть блок-схему алгоритму знаходження суми шести чисел
перше з яких дорівнює 100, а кожне з п'яти наступних у 5 разів менше від попереднього. Виконайте алгоритм.​

Const
   N = 10;
   M = 5;
Var
   A:array[1..N,1..M] of byte;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(90)+10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
Write('Числа, кратные трём:');
For i:= 1 to N do
    For j:= 1 to M do
        if A[i,j] mod 3 = 0 then
           Begin
           Write(' ',A[i,j]);
           k:=k+1
           End;
WriteLn;
WriteLn('Их количество: ',k)
End.

Пример работы программы:

Исходный массив:
 89  38  43  42  57
 43  23  71  61  82
 77  80  44  69  92
 35  33  97  48  78
 58  38  58  88  62
 49  43  75  14  68
 20  19  18  43  47
 13  84  14  46  86
 26  22  87  69  75
 68  84  88  38  49
Числа, кратные трём: 42 57 69 33 48 78 75 18 84 87 69 75 84
Их количество: 13

Подберем числа из которых можно получить данные нам числа
87 из 1222
250 из 7099
656136 из 9999
Всего 3

Не подошли:
58: только 5 и 8, что противоречит п2
124: только 12 и 4 не нарушают п2.
    4 = 1+1+1+1, 1*1*1*1=1 <> 12
    4 = 1*1*1*4 = 1*1*2*2 , 1+1+1+4=7 <> 12, 1+1+2+2 = 6 <> 12
411: только 41 и 1 не нарушают п2.
    1 = 1+0+0+0, 1*0*0*0 = 0 <> 41
    1 = 1*1*1*1, 1+1+1+1 = 4 <> 41     
1711: только (17 и 11) и (171 и 1) не нарушают п2.
    (171 и 1), случай с 1 рассмотрен выше
    (17 и 11): 17 = 17*1*1*1, 17+1+1+1 = 20 < 11
        11 = 11*1*1*1, 11+1+1+1 = 14 < 17
841424: только (84142 и 4) и (8414 и 24) и (841 и 424) не нарушают п2.
    Максимум суммы 4 цифр = 9+9+9+9 = 36
    Максимум произведения 4 цифр = 9*9*9*9 = 6561
    (841 и 424): оба числа больше максимума суммы
    (84142 и 4) и (8414 и 24): 84142 и 8414 больше максимума произведения