Составьте алгоритм возведения четного числа в квадрат, а нечетного в куб (язык программирования - qbasic)

смотри скриншот                                    

var a,b,c: array [1..100,1..100] of integer;

as,bs,cs,i,j: integer;

begin

  sb: =1;

  for i : = 1 to n do

        for j: = 1 to n do

        begin

            if a[i,j]< 0 then sa: =sa+a[i,j];

          if b[i,j]> 0 then sb: =sb*b[i,j];

            if j=3 then sc: =sc+c[i,j];

        end;

    writeln(sa,sb,sc);

end.

мальчики плывут на тот берег

один возвращается

мама плывет на тот берег

второй мальчик возвращается

два мальчика плывут на тот берег

один возвращается

отец плывет на тот берег

второй мальчик возвращается

мальчики плывут на тот берег

сначала определяем к-во символов в каждой  строке

1-1 2-3 3-7 4-15 5-31 6-63 7-127

7-я строка имеет 127 символов и состоит из символа g к которому слева добавлено

две 6-х строки, определяем номера начала и конца каждой строки

6(1-63)  6(64-126)  g(127)

видим что нужные символы во 2-й 6-й строке

6-я строка состоит из символа f к которому слева добавлено

две 5-х строки, определяем номера начала и конца каждой строки

5(64-94) 5(95-125) f(126)

нужные  символы во 2-й 5-й строке

5-я строка состоит из символа e к которому слева добавлено

две 4-х строки, определяем номера начала и конца каждой строки

4(95-109) 4(110-124) e(125)

и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней, 

aabaab c(116)  a(117) a(118) b(119) a(120) a(121) b(122) c(123) d(124)

таким образом нужные символы caabaa

алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки