var g: real;
begin
writeln ('Чему равен коэффициент свободного падения?');
writeln ('Введите число и нажмите <Enter>');
readln (g);
if g=9.81 then writeln ('Правильно! Молодец!')
else writeln('Не правильно. Вы ошиблись! Правильный ответ: 9.81')
end.
var g: real;
begin
writeln ('Чему равен коэффициент свободного падения?');
writeln ('Введите число и нажмите <Enter>');
readln (g);
if g=9.81 then writeln ('Правильно! Молодец!')
else writeln('Не правильно. Вы ошиблись! Правильный ответ: 9.81')
end.