var
  h, g, u, u2, t: real; // Числа, вводимые пользователем

procedure Hello;
begin
  // Приветствие.
  Writeln('Данная программа предназначена');
  Writeln('для вычисления времени падения с определенной высоты,');
  Writeln('и скорости,с которой тело врежется в землю.');
  Writeln;
  // Вызов процедуры вычисления.
end;

procedure Vvod;
begin
  // Ввод данных для вычисления
  Write('Введите высоту в метрах:');  Readln(h);
end;

procedure Calc;
begin
  // Вычисление времени и скорости падения.
  g := 9.81;
  u := sqrt(2 * g * h);
  u2 := (u / 1000) * 3600;
  t := sqrt((2 * h) / g);
end;

procedure Vivod;
begin
  Writeln('Скорость тела в конце падения равна:', u:0:3, ' метров в секунду или ', u2:0:3, ' километров в час');
  Writeln('Время падения равно:', t:0:3, ' секунд');
end;

begin
  Hello;
  Vvod;
  Calc;
  Vivod;
end.