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

Пиши если что не понятно

Program df;uses crt;var a,b,c,max,sum:integer;beginsum:=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.