Дано целое двузначное число м. разработайте схему алгоритма, который вычисляет сумму всех двузначных чисел, начиная с числа м. используйте цикл пока. желательно на языке паскаль.

Python def summ(m): s = 0 while m > 0: s += m % 10 m = m // 10 return sfrom random import randomn = 10a = [0] * nfor i in range(n): a[i] = int(random() * 40) + 10 print('%4d' % a[i], end='')print()for i in range(n - 1): # количество переборов 9 for j in range(n - i - 1): # при первом переборе i=0 if summ(a[j]) > summ(a[j + 1]): a[j], a[j + 1] = a[j + 1], a[j]for i in range(n): print('%4d' % a[i], end='')print()for i in range(n): print('%4d' % summ(a[i]), end='')print()pascalconst     n  =  10; var     arr:   array[1..n]  of  integer;     i,   j:   byte;     a:   integer; function   sum  (n:   integer):   byte;       begin         sum  : =  0;           while   n >   0  do  begin             sum  : =   sum  +   n  mod  10;             n  : =   n  div  10;           end;       end; begin     randomize;       for   i  : =  1  to   n  do  begin         arr[i]  : =   random(20)+10;           write  (arr[i]: 3);       end;       writeln;               for   i  : =  1  to   n-1  do  // количество проходов по массиву           for   j  : =  1  to   n- i  do  // количество сравнений в каждом проходе               if   sum(arr[j])   > sum(arr[j+1])  then  begin                 a  : =   arr[j];                 arr[j]  : =   arr[j+1];                 arr[j+1]  : =   a;               end;         for   i  : =  1  to   n  do           write(arr[i]: 3);       writeln;       for   i  : =  1  to   n  do           write(sum(arr[i]): 3);       writeln; end .

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию begin       var a : = seqwhile(1, i -> i + 1, i -> i < 20);       println(a);       println(a.where(x -> x mod 3 = 0).average);       writeln();             for var i : = readinteger('a =') to readinteger('b =') do               writeln(i, ' ', i * i, ' ', i * i * i); end.