10 integers are entered from the keyboard. count how many positive numbers were entered and their sums.

program zz1;
var a, b, r, i: integer; // set variables of integer type
begin
for i: = 1 to 10 do // organize a loop for ten repetitions
begin
read (a); // enter the next number from the keyboard
if a> 0 // check the condition, if the entered number is greater than zero, then

then begin r: = r + a; b: = b + 1; end; // add a number to the amount and count it
end;
writeln (‘the sum of positive numbers among those entered =’, r); // display answers
writeln (‘the number of positive numbers among those entered =’, b);
end.