Есть ли среди чисел равное среднему их арифметическому

uses crt;
 
begin
    a, b, c, d : real;
 
    Readln(a);
    Readln(b);
    Readln(c);
 
    d := (a * b * c) / 3;
 
    if(a = d OR b = d OR c = d)
        Writeln("Yes")
    else
        Writeln("No");
end.

var
    a,b,c,d: real;
begin
       Write('Введите три числа a, b, c:');
       Readln(a,b,c);
       d:=(a+b+c)/3;
       if (a=d) or (b=d) or (c=d)
                                         then Writeln('Да')
                                         else Writeln('Нет');
      Readln;
end.

var
    a,b,c,d: real;
begin
       Write('Введите три числа a, b, c:');
       Readln(a,b,c);
       d:=(a+b+c)/3;
       if (a=d) 
                 then Writeln('Число',' ',a,' ','равно среднему арифметическому');
      if (b=d) 
                 then Writeln('Число',' ',b,' ','равно среднему арифметическому');
      if (c=d) 
                 then Writeln('Число',' ',c,' ','равно среднему арифметическому')
                 else  Writeln('Нет числа равного среднему арифметическому');
      Readln;
end.