Вводятся числа. Закончить ввод, когда сумма положительных чисел станет равна или превысит 100.
Записать алгоритм в виде блок-схемы

Pascal:

program loop;

var a,s:real;

begin

While s < 100 do

begin

readln(a);

s:= s+a;

end;

end.

-----------------------------

Python:

s = 0

while s < 100:

   s += float(input())

-----------------------------

Блок-схема:

"Приложил скриншот" см. ниже: