найти периметр пятиугольника по известным координатам его вершин, используя процедуру вычисления длины отрезка по известным координатам его концов

program zz1;

const x1 = 2; / / задаем координаты вершин пятиугольника

y1 = 2;

x2 = 12;

y2 = 12;

x3 = 20;

y3 = 20;

x4 = 26;

y4 = 2;

x5 = 21;

y5 = 12;

var p, st1, st2, st3, st4, st5:real;

procedure dl (a, b, c, d:real; var g:real);

begin

g:=sqrt (sqr (a - c) + sqr (b - d)); / / вычисляем длину стороны по формуле

end;

begin

dl (x1, y1, x2, y2, st1);

dl (x3, y3, x2, y2, st2);

dl (x3, y3, x4, y4, st3);

dl (x5, y5, x4, y4, st4);

dl (x1, y1, x5, y5, st5);

p:=st1 + st2 + st3 + st4 + st5;

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

end.