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