Var s1,s2,s3,v1,v2,v3,t1,t2 :integer;
begin
writeln(введите время и скорость на первом этапе);
readln(t1,v1);
writeln(введите время и скорость на втором этапе);
readln(t2,v2);
s1=t1*v1;{км.проехал на первом этапе}
s2=t2*v2;{км.проехал на втором этапе}
s3=s1+s2;{всего проехал км.}
v3=s3/t1+t2;{средняя скорость}
writeln(всего проехал ,s3, км. со средней скоростью ,v3, км.)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.