Даны три целых числа. Написать программу выводящую те из них которые больше нуля и подсчитывающую их произведение. И сделайте блок-схему.

Программа, выводящая те из трёх целых чисел, которые больше нуля и подсчитывающую их произведение, будет выглядеть следующим образом:

Var a, b, c, p:integer;

begin

readln (a, b, c);

if a>0 then begin p:=p*a; writeln (a); end;

if b>0 then begin p:=p*b; writeln (b); end;

if c>0 then begin p:=p*c; writeln (c); end;

writeln ('произведение:', p);

end.