Помогите составить программу 7 класс: автомобиль проезжает первую часть пути длиной в s1 км за t1 мин, участок пути длиной s2 км за t2 мин, и участок пути s3 км за t3 мин. Найдите среднюю скорость автомобиля в км\ч.

vars,t,s1,t1:real;beginWriteln('Введите s1 и t1');Readln(s1,t1);s:= s +s1; t:= t + t1;Writeln('Введите s2 и t2');Readln(s1,t1);s:= s +s1; t:= t + t1;Writeln('Введите s3 и t3');Readln(s1,t1);s:= s +s1; t:= t + t1;t:= t / 60;Writeln(s/t)end.Пример:Введите s1 и t115 10Введите s2 и t25 20Введите s3 и t340 3060