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

var
 v,u,t1,t2,s1,s2,s:real;
 begin
   writeln('Введите u,v,t1,t2');
   readln(u,v,t1,t2);
        s1:=v*t1; {путь пройденный лодкой по озеру}
        s2:=(v-u)*t2; {путь пройденный лодкой по реке}
        s:=s1+s2; {весь путь}
   writeln('Пройденный путь=',s);
end.