Написать программу на pascal для вычисления периметра шестиугольника по заданным координатам его вершин, используя процедуру для нахождения расстояние между двумя точками

Использовать источники открытого огня (спички, зажигаприносить на уроки легковоспламеняющиеся вещества (лаки, краски, порох и т.п.); лки, петарды и др.); работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов; вставлять в отверстие приборов посторонние предметы; приносить и самовольно подключать какое-либо оборудование; производить самовольное переключение разъёмов оборудования; вставлять в отверстие приборов посторонние предметы; работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов;

Для простоты обьяснения выберем тройку кораблей которая будет заходить в ответвление. Пускай это будет  "Обь", "Восток" и "Петропавловск" -  далее А1, А2, А3

Вторая група кораблей будет только ездить туда сюда "Мир", "Енисей" и "Россия" - далее группа В
0) Если надо, корабли группы В задним ходом возвращаются на места, чтоб дать кораблю из группы А заплыть в ответвление 
1) Корабль А1 заходит в ответвление
2) Корабли группы В плывут вперед, так чтоб зайти за ответвление и выпустить корабль оттуда
3) Корабль А1 выплывает из ответвления и уплывает 

Шаги 0-3 повторяются для всех кораблей группы А

4) Корабли групы В проплывают дальше по освободившемуся каналу