program SumOfPositiveNumbersvanumber, sum: integerbegisum := 0repeawrite('Enter a number: ')readln(number);
until number < 0;
writeln('Sum of positive numbers is: ', sum)end.
program SumOfPositiveNumbers
if number > 0 theva
number, sum: integer
begi
sum := 0
repea
write('Enter a number: ')
readln(number);
sum := sum + number;
until number < 0;
writeln('Sum of positive numbers is: ', sum)
end.