Найти сумму трех положительных вводимых с клавиатуры чисел.

(Программа паскаль)

Пример входных данных \ Пример выходных данных

2 8 -3 \ 10

-2 8 -3 \ 8

2 8 3 \ 13​

150/160/170

Объяснение:

Var a, b, c: real;

begin

Write(‘введите числа>>’);

readln(a,b,c);

If a<0 then

If b<0 then

If c<0 then

Write(‘0’)

else

Write(c)

Else

If c<0 then

Write (b)

Else

Write(c+b)

Else if b<0 then

If c<0 then

write (a)

Else

Write(a+c)

Else

If c<0 then

Write(a+b)

Else

write(a+b+c);

End.