Составить алгоритм на языке Паскаль решения задачи: найти среднюю скорость движения поезда, если Т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 = 2 v1 = 5 t2 = 3 v1 = 10 Cp.v = 8