In pascal (ABC), using the procedure (in any way), write the problem: The rectangle is given by its coordinates

In pascal (ABC), using the procedure (in any way), write the problem: The rectangle is given by its coordinates, calculate the perimeter.

program zz1;

var
x1, x2, x3, x4, y1, y2, y3, y4: integer; // set variables of integer type
p, k: real;
procedure pr (f1, f2, g1, g2: integer; var f: real); // describe the procedure
begin
f: = sqrt (sqr (f1-g1) + sqr (f2-g2));
end;
begin
write (‘enter the coordinates of the first corner of the rectangle’);
read (x1, y1);
write (‘enter the coordinates of the second corner of the rectangle’);
read (x2, y2);
write (‘enter the coordinates of the third corner of the rectangle’);
read (x3, y3);
write (‘enter the coordinates of the fourth corner of the rectangle’);
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 (‘rectangle perimeter =’, p);
end.