Паскаль.Линейная программа. Треугольник задан координатами вершин А(х1, у1, z1), B(x2, y2, z2), C(x3, y3, z3). Составить схему вычисления длины медианы АА1. Исходные данные опишите в разделе констант или переменных. Осуществите форматированный вывод результата.

Не забудьте задать исходные данные (как переменные) перед запуском программы.program mediana;varx1,y1,z1,x2,y2,z2,x3,y3,z3: real; (* исходные данные *)x_aa1,y_aa1,z_aa1,length_aa1: real; (* координаты AA1 *)begin(* тут нужно будет задать исходные данные *)x_aa1 := (x2+x3)/2;y_aa1 := (y2+y3)/2;z_aa1 := (z2+z3)/2;length_aa1 := sqrt(sqr(x1-x_aa1)+sqr(y1-y_aa1)+sqr(z1-z_aa1));writeln('Длина AA1: ', length_aa1);end.