Вводятся 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.