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

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.