Разработать алгоритм. даны три числа: 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.