parabel:read("Gib eine Liste mit 3 Punkten ein");

g(x,y):=y=a*x**2+b*x+c;

for i:1 thru 3 do g[i]:g(parabel[i][1],parabel[i][2]);

l:solve([g[1],g[2],g[3]],[a,b,c]);

A:a,l[1][1];

B:b,l[1][2];

C:c,l[1][3];

par:y=A*x**2+B*x+C;

print("Die gesuchte Parabel ist:",par);