Введите три значения ускорения свободного падения.Программа должна проверить, есть ли среди них ускорение свободного падения. (Паскаль)

//PascalABC.NET 3.0const g = 9.8;begin  if ReadSeqReal(3).Where(x -> (x >= g - 0.2) and (x <= g + 0.2)).Any  then write('YES')  else write('NO')end.

var  g1, g2, g3: real;begin  writeln('Введи три числа: ');  readln(g1, g2, g3);  if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin    if g1 = 9.8 then Writeln('Первое - ускорение на Земле');    if g2 = 9.8 then Writeln('Второе - ускорение на Земле');    if g3 = 9.8 then Writeln('Третье - ускорение на Земле');  end;end.