Ясоздала програму но там есть ошибки, подскажите что не так. в текстовому файлі location.txt зберігаються координати чотирьох точок (послідовно x1, y1, x2, y2, x3, y3, x4, y4 якщо координати утворюють прямокутник - знайти та вивести в текстовий файл output.txt периметр цього прямокутника (з точністю до трьох знаків), інакше-вивести в файл false. program b_; var f, g: text; x1, y1, x2, y2, x3, y3, a, b, p: real; begin assign(f, 'location.txt'); assign(g, 'output.txt '); read(f, x1, y1, x2, y2, x3, y3); a: =sqrt(sqr(x2-x1)+sqr(y2-y1)); b: =sqrt(sqr(x3-x2)+sqr(y3-y2)); p: =2*(a+b); write(g, p); close(f); close(g); end.