Произведение суммы чисел 10, 11, 12, 13, 14, 15 и 192. А то что ты дальше написал, я не понял)
Берем и проходим циклом.
var
sum, i, n : integer;
//i - счетчик, в sum - сумма )
begin
read (n);
sum := 0; //Надо обязательно обнулить
for i := 1 to n do
sum := sum + i;
//Таким образом к сумме будут добавлены 1, при следующей интерации 2, и так далее до N
writeln (sum);
end.
Постарался объяснить...
Сверху вниз(первое значение 2 в нулевой степени, последнее - 2 в 10 степени):
1
2
4
8
16
32
64
128
256
512
1024
Var s: integer;
begin
s := random(1000)+2;
writeln(s);
if (s mod 2 = 0) then writeln('Четное.')
else
writeln('Нечетное')
<span>end.</span>