найти ошибку в программе PascalABC.NET Далеко не все в Тентуре имеют право носить малиновые штаны, и конечно, не все владеют пепелацем с гравицапой, зато один предприимчивый чатланин поставил несколько ловушек, захватывающих отваливающиеся детали с пролетающих мимо инопланетных кораблей. Каждое утро он их обходит, в надежде, что рано или поздно из этих запчастей ему удастся собрать какое-нибудь транспортное средство. Путь свой чатланин планирует по карте, на которой аккуратно отмечены ловушки, отсчитывая начало координат от собственного дома. Начинается обход от дома, и в нем же и заканчивается.
Требуется определить, какое расстояние проходит чатланин за день.
В первой строке входного файла INPUT.TXT находится натуральное число N – количество ловушек, установленных чатланином (N ≤ 10), далее следуют N строк формата «X Y», описывающих координаты ловушек в порядке их обхода (-10 ≤ X,Y ≤ 10; X,Y – целые числа).
В выходной файл OUTPUT.TXT выведите общее расстояние, которое пройдет чатланин, обойдя все ловушки в приведенном порядке и вернувшись в начало координат от последней ловушки, с точностью до трех знаков после запятой.
Вот сама программа: function len(x1,y1,x2,y2:integer):double; begin len:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)) end; var x1,y1,y2,x2,n,i:integer; l:real; begin x1:=0; y1:=0; read(n); for i:=1 to n do begin read(x2,y2); l:=len(x1,y1,x2,y2); x1:=x2; y1:=y2; l:=l+len(x2,y2,0,0); end; writeln(l:2:3); end.