Не можете запрограммировать обычную задачу? распишу максимально подробно: 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.
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.