Определить путь S, пройденный лодкой - Pascal

Написать программу для задачи (Фотография текста удалена)

Листинг программы

var v, u, t1, t2: Real;
begin
  Write('Введите v u t1 t2: '); ReadLn(v,u,t1,t2);
  WriteLn('S = ',v*t1+(v-u)*t2:0:2);
end.

Объяснение кода листинга программы

Объявляются переменные v, u, t1, t2 типа Real.
Выводится запрос на ввод значений переменных с помощью функции Write, выводится строка Введите v u t1 t2:.
Происходит считывание значений переменных v, u, t1, t2 с помощью функции ReadLn.
Вычисляется значение выражения v*t1+(v-u)*t2 с точностью до двух знаков после запятой.
Результат выражения выводится с помощью функции WriteLn с добавлением S = перед ним.