Даны переменные a, b, c. определить является ли одна из этих переменных средним арифметическим двух других, в случае отсутствия такой переменной напечатать соответствующее сообщение. на языке паскаль
Var a,b,c:real; begin readln(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.
