<<VilGebra`

P={3,5,0};
Q={1,-1,0};
A={2,-3,0};
DistanciaP1Recta[P,Q,A]