program SumOfPositiveNumbers;
varnumber1, number2, number3, sum: Integer;
beginWrite('Enter first number: ');Readln(number1);
Write('Enter second number: ');Readln(number2);
Write('Enter third number: ');Readln(number3);
sum := 0;
if number1 > 0 thensum := sum + number1;
if number2 > 0 thensum := sum + number2;
if number3 > 0 thensum := sum + number3;
WriteLn('The sum of positive numbers is: ', sum);end.
program SumOfPositiveNumbers;
var
number1, number2, number3, sum: Integer;
begin
Write('Enter first number: ');
Readln(number1);
Write('Enter second number: ');
Readln(number2);
Write('Enter third number: ');
Readln(number3);
sum := 0;
if number1 > 0 then
sum := sum + number1;
if number2 > 0 then
sum := sum + number2;
if number3 > 0 then
sum := sum + number3;
WriteLn('The sum of positive numbers is: ', sum);
end.