Ввести длину пути и время движения двух автобусов. определить скорость какого автобуса меньше. подсчитать за какое время он проедет такое же расстояние если увеличить его скорость на 10 едениц. зарание !

Var
rast, t, speed: real;
begin
write('Dlina puti = ');
readln(rast);
write('Vremya = ');
readln(t);
speed := rast/t;
writeln('Skorost = ', speed:3:2);
t := rast/(speed+10);
writeln('Esli skorost na 10 bolshe, to vremya = ', t:3:2);
readln;
end.