Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) —T2 ч. Определить путь S, пройденный лодкой (путь = время · скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения - Pascal(Паскаль)

program lodka1;
var S, V, U, T1, T2: real;
begin
    write('Введите скорость лодки: ');
    read(V);
    write('Введите скорость течения реки: ');
    read(U);
    write('Введите время движения по озеру: ');
    read(T1);
    write('Введите время движения по реке: ');
    read(T2);
    S := T2 * (V - U) + T1 * V;
    writeln('Путь, пройденный лодкой равен ', S:5:2);
end.