Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
Ответ: S = 37
S = 4
Цикл от 3 до 8, к s прибавляется текущий параметр цикла.
S+3+4+5+6+7+8=37
Сфоткай по качественней, а то ничего не видно)
Да, еще это называется информационной компетенцией