Напишите программу в паскале по задаче: Два велосипедиста одновременно направились навстречу друг другу из двух сёл . Первый мог бы проехать расстояние между сёлами за А минут , второй за В минут , Через сколько минут они встретятся

Предыдущий
вопрос Следующий
вопрос

program MeetingBicyclists;
var
A, B, meetingTime: Integer;
begin
writeln('Enter time for the first cyclist to reach the distance (in minutes): ');
readln(A);
writeln('Enter time for the second cyclist to reach the distance (in minutes): ');
readln(B);

meetingTime := A * B / (A + B); // formula to calculate meeting time

writeln('They will meet each other in ', meetingTime, ' minutes.');
end.