Блок схема графическая найти сумму кубов всех целых чисел от 20 до 40

Program prost; uses crt; var a, b: longint; begin for a: =20 to 40 do for b: =20 to 40 do writeln(a, '^3',' + ', b, '^3', '=', a*a*a + b*b*b); end. повторения не исключал

Const   m = 8;   n = 7; var   a: array[1..m, 1..n] of integer;   i, j: integer; begin   writeln('введите через пробел ', m, ' чисел');   for i : = 1 to m do   begin       read(a[i, 1]);       for j : = 2 to n do a[i, j] : = a[i, 1]   end;   writeln('сформированный массив');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i, j]: 5);       writeln   end end. тестовое решение: введите через пробел 8 чисел 4 -6 10 93 345 -32 0 11 сформированный массив       4      4      4      4      4      4      4     -6    -6    -6    -6    -6    -6    -6     10    10    10    10    10    10    10     93    93    93    93    93    93    93   345  345  345  345  345  345  345   -32  -32  -32  -32  -32  -32  -32       0      0      0      0      0      0      0     11    11    11    11    11    11    11