Program ex; var a,b,c,s,k:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите первое второе'); readln(b); writeln('Введите первое третье'); readln(c); if a>0 then begin k:=k+1; s:=a; end; if b>0 then begin s:=s+b; k:=k+1; end; if c>0 then begin k:=k+1; s:=s+c end; writeln('Сумма=',s); writeln('Количество положительных чисел=',k) end.