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

//PascalABC.NET 3.0 const 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.