// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s := ReadReal('Расстояние в километрах:');
var (t, v, p) := ReadReal3('Скорости поезда, велосипеда, самолета, км/ч:');
Println('Время в часах');
Writeln('Поезд ', s / t:0:2, ', велосипед ', s / v:0:2,
', самолет ', s / p:0:2)
end.