Var a,b,c:real; Begin Write('Введите время движения: '); readln(a); Write('Введите длину пути: '); readln(b); c:=b/a; write('Скорость равна: ', c); End.