Известны данные о стоимости каждого товара из группы. найти общую стоимость трех товаров, которые стоят дороже 1000рублей (количество таких товаров неизвестно)

Var i,x,s: integer; begin writeln('вводите стоимость товаров по одному'); while i< 3 do   begin   readln(x);   if x> 1000 then     begin     s: =s+x;     i: =i+1;     end;   end; writeln('s=',s); end.

Разбери по примеру например число в двоичной системе 1010 1010= 0*2^0 + 1*2^1 + 0*2^2 +1*2^3=0+2+0+8=10 число в двоичной сс ты нумеруешь с конца( 0 под номером 0, 1 под номером 1, следующий 0 под номером 2, следующая 1 под номером 3). и так начинаешь умножать , самое последнее число на 2 в нулевой степени , потому что 0 под номером один , а умножаешь на два , потому что двоичная система счисления , потом 1 умножаешь на 2 в первой степени , потому что один находится под номером 1, потому следующий 0 умножаешь на 2 во второй степени , потому что этот ноль находится под номером два , и следующую единицу умножаешь на 2 в третьей степени , потому что первая единица слева под номером три надеюсь понятно : )

Var  a: array[1..100] of integer;     i, n: integer;     p: integer;       begin    randomize;     writeln('massiv: ');   readln(n);     for i : = 1 to n do      a[i] : = random(10) - 5;     writeln('исходный массив: ');   for i : = 1 to n do    write(a[i], ' ');     p: =1;     for i : = 1 to n do        if (a[i]> 0) and (i mod 2=0) then p: =p*a[i];         writeln('произведение   =',p);   readln.     end.