*********************************************
Dokumentnummer: D1556
*********************************************

gerade:read("Gib die Gleichung einer Geraden in der Form a*x+b*y=c ein");

l:solve(gerade,y);

g:l[1];

g:expand(g);

m:bothcoeff(rhs(g),x);

k:m[1];

d:m[2];

print("Die Steigung ist",k)$

print("Der Abschnitt auf der y-Achse ist",d)$