program MeetingBicyclists;
var
A, B, meetingTime: integer;
begin
write('Enter time for the first bicyclist to cover the distance (A minutes): ');
readln(A);
write('Enter time for the second bicyclist to cover the distance (B minutes): ');
readln(B);
meetingTime := (A * B) div (A + B);
writeln('They will meet in ', meetingTime, ' minutes.');
end.

Программа запрашивает время (в минутах) для первого и второго велосипедистов, чтобы проехать расстояние между сёлами. Затем программа вычисляет время, через которое они встретятся, и выводит это время на экран.