Определить, за какое время путешественник преодолел первую половину пути.

var
  t1, t2, t3: integer;
  v1, v2, v3: integer;
  S1, S2, S3: real;
begin
  writeln('Введите 3 времени через пробел: ');
  read(t1, t2, t3);
  writeln('Введите 3 скорости через пробел: ');
  read(v1, v2, v3);
  S1:=t1*v1;
  S2:=t2*v2;
  S3:=t3*v3;
  writeln('Половина пути пройдена за: ', (S1+S2+S3)/2);
end.

var
  t1, t2, t3: integer;
  v1, v2, v3: integer;
  S1, S2, S3,S: real;
  T:real;
begin
  writeln('Введите 3 времени через пробел: ');
  read(t1, t2, t3);
  writeln('Введите 3 скорости через пробел: ');
  read(v1, v2, v3);
  S1:=t1*v1;
  S2:=t2*v2;
  S3:=t3*v3;
  S:=(S1+S2+S3)/2;
  if s<=s1 then t:=s/t1
  else if (s>s1)and(s<=s1+s2) then t:=t1+(s-s1)/v2
  else t:=(s-s1-s2)/t3;
  writeln('Половина пути пройдена за: ',t:0:2,' чс.');
end.