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

program prost;uses crt;var a, b: longint;beginfor a:=20 to 40 dofor b:=20 to 40 dowriteln(a, '^3',' + ', b, '^3', '=', a*a*a + b*b*b);end.Повторения не исключал