Написать программы на языке Паскаль На участке длинной S1 автобус двигался со скоростью V1, на участке S2 - со скоростью V2. Найти среднюю скорость движения автобуса на всем участке S = S1+S2.

var

 s,s1,s2,v1,v2,t1,t2,t,v:real;

 begin

   writeln('Введите скорость на первом участке');

   read(v1);

    writeln('Введите скорость на втором участке');

   read(v2);

    writeln('Введите длину первого участка');

   read(s1);

    writeln('Введите длину второго участка');

   read(s2);

   t1:=s1/v1;

    t2:=s2/v2;

    t:=t1+t2;

    S:=S1+S2;

    v:=S/t;

    write('Средняя скорость:',v);

 end.