Пожалуйста, составьте алгоритм-блок схему определения расстояния между смежными светофорами.
На железнодорожных линиях, оборудованных автоблокировкой с трехзначной сигнализацией, расстояние между смежными светофорами должно быть не менее тормозного пути, определенного для данного места при полном служебном торможении на максимальной реализуемой скорости, но не более 120 км/ч для пассажирских поездов и 80 км/ч для грузовых поездов, и, кроме того, должно быть не менее тормозного пути при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда. При этом на участках, где видимость сигналов менее 400 м, а также на железнодорожных линиях, вновь оборудуемых автоблокировкой, указанное расстояние, кроме того, должно быть не менее 1000 м.

Var
    a, b: real ;

begin
    Write(тормозной путь, определенного для данного места при полном служебном торможении = );
    readln(a);
    Write(тормозной путь для на 120 км/ч для пассажирских поездов = );
    readln(b);
    if b lt; a then a := b;
    Write(тормозной путь для на 80 км/ч для грузовых поездов = );
    readln(b);
    if b lt; a then a := b;
Write(тормозной путь при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = );
    readln(b);  
    if b gt; a then a := b;
    Write(участок, где видимость сигналов менее 400 м да-1/нет-0 );
    readln(b);
    if (b = 1) and (a lt; 1000) then a := 1000;
    Write(железнодорожная линия, вновь оборудуемая автоблокировкой да-1/нет-0 );
    readln(b);
    if (b = 1) and (a lt; 1000) then a := 1000;
    writeln(a);
end.