Ввести три числа. Найти сумму только положительных чисел. Если все три значения не удовлетворяют условию, вывести на экран соответствующее сообщение.

program Programa;

var a, b, c, d: integer;

begin

 d:=0;

 writeln (' Введите три числа');

 readln (a, b, c);

 if (a>0)

 then

 begin

   d:=d+a;

 end;

 if b>0

 then

 begin

   d:=d+b;

 end;

 if c>0

 then

 begin

   d:=d+c;

 end;

 if (d=0)

 then

 begin

 writeln ('Все корни отрицательные');

 end

 else

 begin

 writeln (d);

 end;

end.

Объяснение:

На, сделал, проверил, работает.