СРОЧНО ДАМ 14 БАЛОВ СРОЧНО ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ НАХОЖДЕНИЯ ПЕРИМЕТРА ПРЯМОУГОЛЬНИКА ПО ЗАДАННЫМ КООРДИНАТАМ ЕГО ВЕРШИН АBCDE

var   Ax,Ay,Cx,Cy,P:real; begin   Writeln('Введите координаты x,y любой вершины прямоугольника: ');   Read(Ax,Ay);   Writeln('Введите координаты x,y диагональной вершины прямоугольника: ');   Read(Cx,Cy);   P:=2*(Abs(Cx-Ax)+Abs(Cy-Ay));   Writeln('Периметр прямоугольника равен ',P) end. Тестовое решение: Введите координаты x,y любой вершины прямоугольника: 2 10 Введите координаты x,y диагональной вершины прямоугольника: -8 3 Периметр прямоугольника равен 34