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

Program Uskorenie;

uses Crt;

const g = 9.81;

var g1, g2, g3 : real;

begin

ClrScr;

Write (' Введите g1 = ') ; ReadLn (g1) ;

Write (' Введите g2 = ') ; ReadLn (g2) ;

Write (' Введите g3 = ') ; ReadLn (g3) ;

WriteLn;

if (g1=g) or (g2=g) or (g3=g) then WriteLn (' Есть!')

else WriteLn (' Отсутствует ... ') ;

ReadLn;

end.