xA=input("xA = ");yA=input("yA = ");zA=input("zA = ");
xB=input("xB ? ");yB=input("yB ? ");zB=input("zB = ");
xC=input("xC = ");yC=input("yC = ");zC=input("zC = ");
x1=xB-xA;y1=yB-yA;z1=zB-zA;
x2=xC-xA;y2=yC-yA;z2=zC-zA;
a=y1*z2-y2*z1;b=z1*x2-z2*x1;c=x1*y2-x2*y1;d=-a*xA-b*yA-c*zA;
if (a==0) & (b==0) & (c==0) then 
    afficher ("Les points A, B, C sont alignés et ne définissent pas un plan");
    else afficher("Les points A, B, C ne sont pas alignés et définissent un plan P");
    t="Le vecteur de coordonnées (a ; b; c) avec a = "+string(a)+", b = "+string(b)+", c = "+string(c)+" est normal au plan P.";
    afficher(t);
    v="Et ax + by + cz + d = 0 avec d = "+string(d)+" est une équation de P.";
    afficher(v);
end;