Написать программу на языке паскаль. Задача задача на нахождение скорости по течению?

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

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, ' км');   readln end. 

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