составить алгоритм на языке Паскаль решения задачки: отыскать среднюю скорость движения

Var t1, v1, t2, v2, s1, s2, s, t, v : real;
begin
  write('t1 = ');
  read(t1);
  write('v1 = ');
  read(v1);
  write('t2 = ');
  read(t2);
  write('v1 = ');
  read(v2);
  s1 := v1 * t1;
  s2 := v2 * t2;
  s := s1 + s2;
  t := t1 + t2;
  v := s / t;
  write('Cp.v = ', v);
end.

Пример работы программки:
t1 = 2
v1 = 5
t2 = 3
v1 = 10
Cp.v = 8