var v,v1,v2,vr,t1,t2,s:integer;
begin
writeln('Введите скорость лодки');
readln(v);
writeln('Введите скорость течения');
readln(vr);
writeln('Введите время по течению');
readln(t1);
writeln('Введите время против течения');
readln(t2);
v1:=v+vr;
v2:=v-vr;

s:=(t1*v1)+(t2*v2);
println('Пройденный путь - ',s, 'км.');

end.