Разработать алгоритм. Даны три числа: a,b,c. Определить произведение положительных чисел.

var   a, b, c, s:integer; begin   s:=1;   readln(a, b, c);   if (a<=0) AND (b<=0) AND (c<=0) then     writeln('Среди чисел a, b, c нет положительных чисел')   else   begin     if a>0 then       s:=s*a;     if b>0 then       s:=s*b;     if c>0 then       s:=s*c;     writeln(s);   end; end.