с номерами от первого до 8 номера

Без прелюдий, только основная часть программы:
 While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET

Попробуй это решение
Var A:array[1..10000] of integer;i,x,d,n:integer;Beginreadln(x,d,n);A[1]:=x;For i:=2 to n doA[i]:=A[i-1]+d;
For i:=1 to n dowrite(a[i],);End.

1) var A: array [1..6] of integer = (-125,200,10,6,43,11);
2) 6
3) 11

Могу примерно ответить, саму технологию