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

Vara,s,k:integer;p : longint;begink := 0; s := 0;p := 1;repeatwrite('введите число: ');readln(a);if a < 0 thenbegininc(k);p := p * a end;if a > 0 then s := s + auntil a = 0; writeln('сумма положительных: ', s);if k = 0 then writeln('отрицательных чисел нет')else writeln('произведение отрицательных: ', p);readlnend.