создать блок схему для задачи

По автомагистрали Москва-Симферополь два спортсмена одновременно начали тренировочный велопробег навстречу друг другу. В тот момент, когда между велосипедистами осталось всего 300 километров, пробегом очень заинтересовалась одна любопытная муха. Слетев с плеча одного велосипедиста и опережая его, она помчалась навстречу другому. Встретив второго велосипедиста и убедившись, что все у него хорошо, она немедленно повернула обратно. Долетела муха до первого спортсмена и опять повернула ко второму.
Так она и летала между сближавшимися велосипедистами до тех пор, пока велосипедисты не встретились. Тогда муха успокоилась и села одному из них на нос. Муха летала между велосипедистами со скоростью 100 километров в час, а велосипедисты все это время ехали со скоростью 50 километров в час.

Сколько километров пролетела муха?

Расстояние между велосипедистами сокращалось на 100 километров каждый час, и расстояние между ними сократилось с 300 километров до нуля в течение трёх часов. За эти три часа, по какой бы траектории ни летала муха со скоростью 100 километров в час, она пролетела бы (и она пролетела) 300 километров. Не знаю, что сказали бы на это энтомологи, но ни один математик возражать, я думаю, не станет. 

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

1) program lineynoeuravnenie;
var a, b: integer; x: real;
begin
writeln ('Введите коэффициенты a и b');
readln (a, b);
x:=-b/a;
write ('Решите уравнение', x);
end.

2) program veschestvennoe;
var a, b, c: integer; d, x1, x2: real;
begin
writeln ('Введите коэффициент a, b, c');
readln (a, b, c);
if a=0 then
begin
x1:=-c/b;
write ('Одно решение', x1),
end;
d=b*b-4*a*c;
if d<0 then
write ('Корней нет');
if d=0 then
begin
x1:=-b/(2*a);
write ('Одно решение', x1);
end;
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write (x1,'',x2);
end;
end.