Написать программу, в которой осуществляется ввод целых чисел(ввод до тех пор, пока не будет введен ноль) и подсчет суммы введенных положительных чисел. Сделать блок схемой( )

Добрый вечер. (ночи :) )

Сделать схемкой не могу но вот написал прогу. Надеюсь Сейчас попробую сделать схему, но не обещаю удачи.

(P.S. Протестил)

var a,sum:integer;

begin

 sum:=0;

 repeat

    readln(a);

    if a>0 then  

    begin

       sum:=sum+a;

    end;

 until a = 0;

 writeln('Сумма ',sum:5);

end.

Объяснение: