Составить программу "Вычисление площади прямоугольника ,если заданы координаты 3-х его вершин"

var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;begin;readln(x1);readln(y1);readln(z1);readln(x2);readln(y2);readln(z2);readln(x3);readln(y3);readln(z3);abx:=x2-x1;acx:=x3-x1;aby:=y2-y1;acy:=y3-y1;abz:=z2-z1;acz:=z3-z1;mx:=aby*acz-abz*acy;my:=abz*acx-abx*acz;mz:=abx*acy-aby*acx;c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));s:=0.5*c;writeln(s);end.