Решение :
2 ³² = 4294967296 байт ≈ 4 Гб
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>
Begin.. Эта конструкция является составным оператором. Зарезервированные слова Begin служат операторными скобками.
Число. Остальные варианты относятся к словесному описанию чего-либо.
Надеюсь помог с ответом.