В паскале сделать надо. Помогите пожалуйста, ребятки:*Автомобиль ехал несколько часов со скоростью 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.