Ясоздала програму но там есть ошибки, подскажите что не так. в текстовому файлі 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.
