Определите значение переменной s после выполнения операторов

Тут опиши переменные, создай массив,  заполни его. дальше: summa : = 0; for counter = 1 to 10 do   if (massive[counter] mod 2 < > 0) then         summa : = summa + 1;                   //сумма нечетных   if (massive[counter] > 15) then write(massive[counter]     ,   ',')   //все те, что б                                                                                                     //ольше 15         writeln(summa); readln() end.

Данных в мало, так как выплаты по кредиту зависят от вида платежа (дифференцированный или аннуитетный). с точки зрения написания программы, возможно, интереснее дифференцированный, когда выплата по основному долгу постоянная, а проценты уменьшаются (т.к. уменьшается оставшаяся сумма долга). программа на паскале для такого случая (выплаты раз в год): var sum,s,c,p1,p2: real; y,i: integer; begin sum: =40000; y: =4; c: =25; p1: =sum*c/100; s: =0; writeln('основной долг   проценты');   for i: =1 to y do   begin   p2: =sum*c/100;   s: =s+p1+p2;   sum: =sum-p1;   writeln(p1: 5: 2,' ': 8,p2: 6: 2);   end;   writeln('за 4 года выплачено ',s: 5: 2); end. результат: основной долг   проценты 10000.00         10000.00 10000.00         7500.00 10000.00         5000.00 10000.00         2500.00 за 4 года выплачено 65000.00