1.с клавиатуры вводится 3 числа. найти сумму только из положительных чисел. (тема: программирование ветвлящихся и цепленных алгоритмов) 2.дано двухзначное число,найти сумму и произведение его чисел. (2-ая решается с div и mod) (тема: программирование ветвлящихся и цепленных алгоритмов )
program qq;
var a,b,c,d:integer;
begin
read(a,b,c);
d:=0;
if a>0 then d:=d+a;
if b>0 then d:=d+b;
if c>0 then d:=d+c;
writeln(d);
end.