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

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

 

можно назвать - собака 

или 

агент @ мail.ru