Программа на языке Pascal для решения задачи на нахождение скорости по течению: 25

var V, U, T1, T2, S: real;begin  write('Введите скорость лодки в стоячей воде: ');  readln(V);  write('Введите скорость течения: ');  readln(U);  write('Введите время движения лодки по озеру: ');  readln(T1);  write('Введите время движения лодки по реке (против течения): ');  readln(T2);  S := V * T1;  {расстояние, пройденное лодкой по озеру}  V := V - U;  {скорость лодки против течения}  S := S + V * T2;  {общее расстояние, пройденное лодкой}  writeln;  writeln('Расстояние, пройденное лодкой: S = ', S:0:3, ' км');  readlnend.

В программе нужно ввести скорость лодки в стоячей воде V, скорость течения реки U, время движения лодки по озеру T1 и по реке (против течения) T2. 25 Затем программа вычислит путь S, пройденный лодкой (путь = время * скорость). 25 При этом учитывается, что при движении против течения скорость лодки уменьшается на величину скорости течения. 25