Программа в паскале.Даются 3 натуральных числа,если сумма первых двух больше нуля,определите максимальное число,в ином случае вычислите среднее арифметическое.

Пожалуйста

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016var  a,b,c:integer;  r:real;begin  Writeln('Введите три числа: '); Read(a,b,c);  if a+b>0 then begin    r:=a;    if b>r then r:=b;    if c>r then r:=c    end  else r:=(a+b+c)/3;  Writeln('Результат равен ',r)end.Тестовые решения:Введите три числа: -5 8 11Результат равен 11Введите три числа: -3 -6 8Результат равен -0.333333333333333