Не можете запрограммировать обычную задачу? распишу максимально подробно:
program z;
var v, s, t:real; //объявление переменных типа real(дробные), где s - расстояние, v - скорость, t - время
begin
write('Vvedite rasstoyanie: '); //вывод сообщения на экран
read(s); //запрос на ввод расстояния(результат ввода помещается в переменную s)
write('Vvedite skorost: '); //вывод сообщения на экран
read(v);//запрос на ввод расстояния(результат ввода помещается в переменную v)
t:=s/v; //по формуле вычисляем время, результат заносится в переменную t
write('vremya: ', t); //выводится сообщение с результатом
end.