Даны три числа a, b, c. Если среди них есть положительные, то найти сумму этих трёх чисел, а иначе найти максимум из трёх.

Program df;

uses crt;

var a, b, c, max, sum:integer;

begin

sum:=0;

max:=0;

writeln ('введите числа а, b, c') ;

readln (a, b, c) ;

if (a>0) or (b>0) or (c>0) then sum:=a+b+c else if (a>b) and (a>c) then max:=a else if (b>c) then max:=b else max:=c;

if sum=0 then wrteln ('Числа отрицательные большее из них ', max) else writeln ('сумма чисел ', sum) ; end.