Даны три целых числа, написать программу которая считает произведение положительных из них.

program zz1;

var a, b, c, p:integer; / / вводим переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

p:=1;

if a > 0 then p:=p * a; / / проверяем на положительность введенные числа

if b > 0 then p:=p * b;

if c > 0 then p:=p * c;

/ / выводим ответ

write (' полученное произведение ', p);

end.