Срочно нужно решение задачи Pascal. Дан массив. Найти сумму кубов всех…

{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать. Должна работать, не работает — отпишись, отыщу паскаль и исправлю. Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}program massiv; var x: array[1… 10] of real; n, i: integer; s: real; beginwriteln ('Vvedite razmer massiva'); readln (n); if (n<1) or (n>10) then writeln ('Neverno zadano znacheniye razmera massiva') else begin {check: +}for i: =1 to n do begin writeln ('Vvedite element ', i, 'iz ', n); readln (x[i]); end; {enter the array}s: =0; for i: =1 to n dobegins: =s+power (x[i], 3); end; writeln (s: 2:2); end; readln; {stop here to read the program answer}end.