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

var v1,v2,t1,t2:real;
begin
writeln ('Введите скорости автомобился на двух участках пути: ');
read (v1,v2);
writeln ('Введите время прохождения обоих участков пути: ');
read (t1,t2);
writeln ('Путь, который проехал автомобиль: ',(V1*t1+V2*t2));
writeln ('Средняя скорость автомобился: ',( (V1*t1+V2*t2)/(t1+t2)) );
end.