составить алгоритм на языке Паскаль решения задачи: найти среднюю скорость движения поезда, если Т1 час он двигался со скоростью V1, а Т2 часа - со скоростью V2

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 = 2v1 = 5t2 = 3v1 = 10Cp.v = 8