ВЫЧИЛИТЕ СУММАРНЫЙ ОБЪЕМ X КУБОВ, ЕСЛИ СТОРОНА ПЕРВОГО КУБА 5 М, А КАЖДОГО…

Program Tanina_domashka; x,i: byte; summa: integer; Begin Write ('Введите количество кубов'); Readln (x); If 500-x*20>0 then // проверяю возможно ли такое количество кубов Begin For i: =0 to x-1 do summa: =summa+power (500-i*20,3); //расчет (power (x,y) возводит x в степень y) End; Writeln ('Суммарный объем=',summa); //вывод End.