Вычисление координаты (Топчий)

var ax,ay,az,bx,by,bz,cx,cy,cz,dx,dy,p:real;
begin
Writeln('Найти,при каком значении p AB будет перпендикулярна CD. Введите координаты:');
Writeln('a:');
Read(ax,ay,az);
Writeln('b:');
Read(bx,by,bz);
Writeln('c:');
Read(cx,cy,cz);
Writeln('d:');
Read(dx,dy);

ax:=ax-bx;
ay:=ay-by;
az:=az-bz;

{Writeln(ax,' ',ay,' ',az);}

cx:=cx-dx;
cy:=cy-dy;

{Writeln(cx,' ',cy,' ',cz);}

ax:=((ax*cx+ay*cy)/az)+cz;

Writeln('Ответ: ',ax);

end.