PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var (g, h) := (9.81, ReadReal('h (м)='));
var (t, v) := (Sqrt(2 * h / g), Sqrt(2 * h * g));
Writeln('t=', t:0:3, ' с, v=', v:0:3, ' м/с = ', v * 3.6:0:3, ' км/ч')
end.
