Вот, получилось 2 решения, но я перепроверил, правильно, вроде, не знаю, почему их двое..)
Калькулятор на компьютере выбираешь вид И в низу будет вычисление даты.
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;
<span>end.</span>
<em><u>Значит дробь правильная, делай по правилу и все получится)</u></em>