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

1

Ответы и объяснения

2013-02-22T14:07:13+04:00

program name;
var a,b,c:integer;
begin
readln(a,b,c);
If (a<0) then writeln(b*c)
else if (b<0) then writeln(a*c)
else if (c<0) then writeln(b*a)
else writeln(a*b*c);

end.