Помогите составить программу для решения физической задачиавтомобиль проходит первую часть пути длиной s1 км за t1 мин, участок пути длиной s2 км за t2 мин и участок длиной s33 км за t3 мин. найдите среднюю скорость.

Uses crt;

var a, b, c:real;

begin

writeln ('Введите пройденные км. (В км.) : ');

readln (a);

writeln ('Введите занятое на прохождение пути время (В часах) : ');

readln (b);

c:=a/b;

writeln ('Средняя скорость составляет ', c:3,' км/ч');

end.