Составить алгоритм на языке Паскаль решения задачи: найти среднюю скорость движения поезда, если Т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