даны переменные a, b, c. определить является ли одна из этих переменных средним арифметическим двух других, в случае отсутствия такой переменной напечатать соответствующее сообщение. На языке ПАСКАЛЬ

var a,b,c:real;beginreadln(a,b,c);if a = (b+c)/2 then writeln(a:3:1,' - среднее арифметическое ',b:3:1,' и ',c:3:1) else if b = (a+c)/2 then writeln(b:3:1,' - среднее арифметическое ',a:3:1,' и ',c:3:1)  else if c = (a+b)/2 then writeln(c:3:1,' - среднее арифметическое ',a:3:1,' и ',b:3:1)   else writeln('Среди чисел ',a:3:1,', ',b:3:1,', ',c:3:1,' нет одного значения, которое является средним арифметическим двух других');end.Пример:5 4 34.0 - среднее арифметическое 5.0 и 3.0