> restart;

> with(plots);

BridgeHeight := 40;

BridgeFromCenter := 20;

BridgeToEdge := 35;

BridgeWidth := BridgeToEdge+BridgeFromCenter;

BridgeFromTheWater := 15;

BridgeLines := 10;

SpaceBetweenLines := 2*BridgeToEdge/BridgeLines;

LineStart := BridgeWidth;

CountLines := 0;

LineWidth := BridgeWidth;

while BridgeLines > CountLines do

CountLines := CountLines+1;