Сделайте блок-схему по среди 3 введенных чисел посчитать количество положительных

Var
a,s,k:integer;
p : longint;
begin
k := 0;
s := 0;
p := 1;
repeat
write('введите число: ');
readln(a);
if a < 0 then
begin
inc(k);
p := p * a
end;
if a > 0 then s := s + a
until a = 0;
writeln('сумма положительных: ', s);
if k = 0 then writeln('отрицательных чисел нет')
else writeln('произведение отрицательных: ', p);
readln
end.