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

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.