Программа случайным образом генерирует однозначные числа (все числа вывести на экран). Эти числа последовательно суммируются. Определить количество чисел, когда их сумма превысила 100.

Пожалуйста помогите мне https://znanija.com/task/29131727

Var a,b,count:integer;Begin while (a<100) dobeginb:=random(9);writeln(b);Inc(a,b);Inc(count);end;writeln('Кол-во: ',count);End.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  Randomize;  var (s,k):=(0,0);  repeat    s+=(Random(1,9)).Print;    k+=1  until s>100;  Writeln(NewLine,'Количество чисел равно ',k)end.Пример6 3 4 7 8 8 1 2 3 6 5 3 2 9 9 7 1 5 5 4 8 Количество чисел равно 21