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

Ответ

Автор - falcon22

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.