Pascal: известны координаты вершин некоторого четырехугольника a(x1,y1), b(x2,y2), c(x3,y3), d(x4,y4). найти длины диагоналей этого четырехугольника.

Если считать, что координаты вершин даны последовательно, то диагоналями являются прямые ac и bd. формула для нахождения длины прямой, заданной координатами её концов, известна: var   xa,ya,xb,yb,xc,yc,xd,yd: real; begin   write('введите координаты точки а: '); read(xa,ya);   write('введите координаты точки b: '); read(xb,yb);   write('введите координаты точки c: '); read(xc,yc);   write('введите координаты точки d: '); read(xd,yd);   writeln('длина диагонали ac равна ',sqrt(sqr(xc-xa)+sqr(yc-;   writeln('длина диагонали bd равна ',sqrt(sqr(xd-xb)+sqr(yd- end. пример введите координаты точки а: -8.5 -2 введите координаты точки b: -5 3.15 введите координаты точки c: 1.2 5.8 введите координаты точки d: 11 -4 длина диагонали ac равна 12.4470880128647 длина диагонали bd равна 17.524910841428

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end.