даны переменные 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.

Пример:
5 4 3
4.0 - среднее арифметическое 5.0 и 3.0