Квадрат расстояния (Топчий)

var ax,ay,az,bx,by,bz,cx,cy,cz:real;
begin
Writeln('найти квадрат расстояния от A до середины BC. Введите координаты:');
Writeln('a:');
Read(ax,ay,az);
Writeln('b:');
Read(bx,by,bz);
Writeln('c:');
Read(cx,cy,cz);

cx:=(cx+bx)/2;
cy:=(cy+by)/2;
cz:=(cz+bz)/2;

ax:=ax-cx;
ay:=ay-cy;
az:=az-cz;

WRiteln('ответ: ',ax*ax+ay*ay+az*az);
end.