Определить время, через которое встретятся два пешехода, равномерно движущиеся навстречу друг другу - Pascal ABC

Формулировка задачи:

определить время, через которое встретятся два пешехода, которые равномерно движутся навстречу друг другу, если известно, что их скорости и начальное расстояние между ними помогите пожалуста,заранее спасибо

Решение задачи: «Определить время, через которое встретятся два пешехода, равномерно движущиеся навстречу друг другу»

Листинг программы

program v22;
var t,v1,v2,rasst:real;
begin
writeln('vvod v1,v2,rasst');
readln(v1,v2,rasst);
if rasst<=0 then t:=0
else t:=rasst/(v1+v2);
writeln(t);
end.

Объяснение кода листинга программы

Список элементов кода с объяснениями:

program v22; - Заголовок программы
var t,v1,v2,rasst:real; - Объявление переменных
writeln('vvod v1,v2,rasst'); - Вывод сообщения для ввода данных
readln(v1,v2,rasst); - Чтение данных с помощью функции readln
if rasst<=0 then t:=0 - Проверка значения переменной rasst и присвоение значения переменной t в случае, если rasst меньше или равно нулю
else t:=rasst/(v1+v2); - В противном случае, расчет времени встречи пешеходов и присвоение значения переменной t
writeln(t); - Вывод значения переменной t
end. - Конец программы