Решить крассворд по информатике 3 класс вопрос: каждый элемент списка 5 букв

Какие вопросы

{лови прогу для одномерного массива. если он двумерный, могу модифицировать. должна работать, не работает - отпишись, отыщу паскаль и исправлю. кидай прям весь ответ, кэп. комментарии подотри, опять же кэп} program massiv; var x: array[1..10] of real; n, i: integer; s: real; begin writeln('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 do begin s: =s+power(x[i], 3); end; writeln(s: 2: 2); end; readln; {stop here to read the program answer} end.

              остаток от деления 81/2=40         1 40/2=20         0 20/2=10         0 10/2=5           0 5/2=2             1 2/2=1             0 1/2=0             181=1010001              остаток от деления 185/2=92           192/2=46             046/2=23             023/2=11             111/2=5               15/2=2                 12/2=0                 00/2=0                 1185= 10111001