В паскале (ABC) с помощью процедуры (любым способом) написать задачу : Прямоугольник задан своими координатами,вычислить

program zz1;

varx1, x2, x3, x4, y1, y2, y3, y4:integer; // задаем переменные целого типа p, k:real;procedure pr(f1, f2, g1, g2:integer; var f:real); // описываем процедуруbeginf:=sqrt(sqr(f1-g1)+sqr(f2-g2));end;beginwrite(\' введите координаты первого угла прямоугольника \');read(x1, y1); write(\' введите координаты второго угла прямоугольника \');read(x2, y2); write(\' введите координаты третьего угла прямоугольника \');read(x3, y3); write(\' введите координаты четвертого угла прямоугольника \');read(x4, y4); pr(x1,y1,x2,y2,k);p:=p + k;pr(x1,y1,x4,y4,k);p:=p + k;pr(x3,y3,x2,y2,k);p:=p + k;pr(x3,y3,x4,y4,k);p:=p + k;write(\' периметр прямоугольника = \', p);end.