В паскале сделать надо. Помогите пожалуйста, ребятки:*
Автомобиль ехал несколько часов  со скоростью V1 км/час, затем несколько часов
со скоростью V2 км/час. Значения времени и скорости вводятся с клавиатуры.
Сколько км он проехал? Какова его средняя скорость?

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.