Question

Создать алгоритм. Даны три числа a b c определить произведение положительных чисел. Помогите пожалуйста

Answer 1

Var
p,a,b,c:longint;
begin
p:=1;
read(a,b,c);
if a>0 then p:=p*a;
if b>0 then p:=p*b;
if c>0 then p:=p*c;
writeln(p);
end.