Четырехугольник задан своими координатами вершин. найти p (периметр) на с++

#define square(a) ((a) * (a)) struct point { int x; int y; }; int main() { const int numofpoints = 4; point points[numofpoints]; double p = 0; for (int i = 0; i < numofpoints - 1; i++) p += sqrt(square(points[i + 1].x - points[i].x)) + square(points[i + 1].y - points[i].y)); p += sqrt(square(points[numofpoints - 1].x - points[0].x)) + square(points[numofpoints - 1].y - points[0].y)); }

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот