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

program zz1;

var

x1, x2, x3, x4, y1, y2, y3, y4:integer; / / задаем переменные целого типа

p, k:real;

procedure pr (f1, f2, g1, g2:integer; var f:real); / / описываем процедуру

begin

f:=sqrt (sqr (f1-g1) + sqr (f2-g2));

end;

begin

write (' введите координаты первого угла прямоугольника ');

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.