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.