Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч. Определить путь S, пройденный лодкой (путь = время * скорость)

Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.

Program Begin35;
Var
V,U,T1,T2,S:Real;
Begin
WriteLn('Введите V,U,T1 и T2');
ReadLn(V,U,T1,T2);
S:=T1*V + T2*(V - U);
WriteLn('Путь S, пройденный лодкой равен ',S);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9