Ответ:

program z;

var a, s: real;

n: integer;

begin

read(a);

s := a;

n := 1;

while s <= 100 do

begin

a := a + 3;

s := s + a;

n := n + 1

end;

write(n)

end.

Объяснение:

ввод действительного числа в переменную a (read(a); - значение первого слагаемого)

присваивание переменной s значение переменной a (s := a; - начальная сумма равна первому слагаемому)

присваивание переменной n значение 1 (n := 1; - начальное количество слагаемых, учитывает первое введённое слагаемое)

цикл с предусловием (while s <= 100 do - пока условие сумма слагаемых меньше или равна 100 истинно выполнить действия в цикле)

действия в цикле:

1) увеличить значение переменной a на 3 (a := a + 3; - находим следующее слагаемое)

2) увеличить значение переменной s на значение переменной a (s := s + a; - вычисляем сумму)

3) увеличить значение переменной n на 1 (n := n + 1 - подсчитываем количество слагаемых)

вывод значения переменной n на экран (write(n) - выводим количество слагаемых, когда условие в цикле становится ложным)