Составить программу для нахождения времени когда известен путь и скорость)

var skorost,pyt:real;beginwriteln('Скорость равна = ');read(skorost);writeln('Путь равен = ');read(pyt);writeln('Время равно = ',pyt/skorost);end.